library(topicdict)
library(purrr)
library(quanteda)
library(tibble)
library(ggplot2)
library(dplyr)
library(topicmodels)Create model function:
create_model <- function(docs, seed_list, extra_k){
set.seed(225)
names(seed_list) <- 1:length(seed_list)
dict <- quanteda::dictionary(seed_list)
model <- topicdict_model(docs,
dict = dict, extra_k = extra_k,
remove_numbers = FALSE,
remove_punct = TRUE,
remove_symbols = TRUE,
remove_separators = TRUE)
return(model)
}# Check dispersion
tidy_seededlda_out <- function(model, res, n=15, show=F){
# Create a nested data frame which contains W and Z
post <- topicdict::posterior(res)
topwords <- top_terms(post, n=n)
topwords <- data.frame(topwords)
colnames(topwords) <- paste0("EstTopic", 1:ncol(topwords))
topwords %>%
tidyr::gather(., key=EstTopic, value=Word) %>%
mutate(Word = gsub("\\s.*$", "", Word)) -> otidy
if(show){
num_seededtopic <- length(model$seeds)
print(top_terms(post, n))
}
return(otidy)
}
list_to_tibble <- function(lobj){
# Flatten list and get a tibble
obj_len <- lobj %>% map(length) %>% flatten_int()
element <- lobj %>% flatten_chr()
tibble(SeedTopic = rep(paste0("EstTopic", 1:length(obj_len)), obj_len),
Word=element
) -> res
return(res)
}
count_appearence_list <- function(otidy, lobj){
all_words <- lobj %>% flatten_chr()
SeedTopicName <- paste0("EstTopic", 1:length(lobj))
otidy %>%
right_join(., list_to_tibble(get("lobj")), by="Word") %>%
mutate(count = ifelse(is.na(EstTopic), 0, 1)) %>%
group_by(Word, SeedTopic) %>%
summarize(count = sum(count)) -> organized
organized %>%
ggplot(., aes(x=factor(count))) +
geom_histogram(stat="count") +
xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
theme_bw(base_size=15) +
theme(plot.title = element_text(hjust = 0.5)) -> g1
organized %>%
ggplot(., aes(x=factor(count))) +
geom_histogram(stat="count") +
facet_wrap(~ SeedTopic, ncol=3) +
xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
theme_bw(base_size=15) +
theme(plot.title = element_text(hjust = 0.5)) -> g2
# Only check topics with seed
otidy %>%
filter(EstTopic %in% get("SeedTopicName")) %>%
right_join(., list_to_tibble(get("lobj")), by="Word") %>%
mutate(count = ifelse(is.na(EstTopic), 0, 1)) %>%
group_by(Word, SeedTopic) %>%
summarize(count = sum(count)) -> organized_
organized_ %>%
ggplot(., aes(x=factor(count))) +
geom_histogram(stat="count") +
facet_wrap(~ SeedTopic, ncol=3) +
xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics\n(Only topics with keywords)") +
theme_bw(base_size=15) +
theme(plot.title = element_text(hjust = 0.5)) -> g3
return(list(g1, g2, g3))
}library(tm)
get_lda_result <- function(doc_folder, seed_list, iter_num, k, topicvec=1:k, show_n=15, showtop=F){
# Prepare Data
corpus <- Corpus(DirSource(doc_folder))
strsplit_space_tokenizer <- function(x)
unlist(strsplit(as.character(x), "[[:space:]]+"))
dtm <- DocumentTermMatrix(corpus,
control = list(tokenize=strsplit_space_tokenizer,
stopwords = F, tolower = T,
stemming = F, wordLengths = c(1, Inf)))
lda <- LDA(dtm, k = k, control = list(seed = 225, iter=iter_num), method="Gibbs")
all_words <- seed_list %>% flatten_chr()
tidytext::tidy(lda) %>%
group_by(topic) %>%
top_n(show_n, beta) -> topwords_
topwords_ %>%
rename(topics = topic, Word = term) %>%
select(-beta) %>%
right_join(., list_to_tibble(get("seed_list")), by="Word") %>%
mutate(count = ifelse(is.na(topics), 0, 1)) %>%
group_by(Word, SeedTopic) %>%
summarize(count = sum(count)) -> organized
organized %>%
ggplot(., aes(x=factor(count))) +
geom_histogram(stat="count") +
xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
theme_bw(base_size=15) +
theme(plot.title = element_text(hjust = 0.5)) -> g1
organized %>%
ggplot(., aes(x=factor(count))) +
geom_histogram(stat="count") +
facet_wrap(~ SeedTopic, ncol=3) +
xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
theme_bw(base_size=15) +
theme(plot.title = element_text(hjust = 0.5)) -> g2
if(showtop){
topwords_ %>%
ungroup() %>%
arrange(topic, desc(beta)) %>%
select(-beta) -> temp
twdf <- temp %>% filter(topic==1) %>% select(term) %>% as.matrix() %>% data.frame()
for(k in 2:length(unique(temp$topic))){
temp %>% filter(topic==k) %>% select(term) %>% as.matrix() %>% data.frame() -> add
twdf <- cbind(twdf,
add[1:15,])
}
colnames(twdf) <- 1:length(unique(temp$topic))
print(twdf)
}
return(list(g1, g2))
}doc_folder <- paste0("/Users/Shusei/Dropbox/Study/My_Research/TreeStructuredTopicModel/Papers/replication/Catalinac/data/docs") # Data from original data Document-Term Matrix
docs <- list.files(doc_folder, pattern = "*.txt", full.names = TRUE)# Remove overlapping words for better comparison
seed_list <- list(c("農業 整備 漁業 開発 水産"), # agriculture, fishing industry
c("税 消費 暮らし 景気 税金"), # tax
c("介護 高齢 保険 長寿 健康"), # aging society
c("軍事 戦争 軍 自衛隊 平和"))
seed_list <- lapply(seed_list, function(x){strsplit(x, " ")[[1]]})# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=76)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list) 1 2 3 4 T_1 T_2
[1,] "整備 [✓]" "消費 [✓]" "制度" "平和 [✓]" "県" "環境"
[2,] "道路" "税 [✓]" "医療" "憲法" "農業 [1]" "地球"
[3,] "振興" "政治" "介護 [✓]" "党" "青森" "自然"
[4,] "道" "国民" "年金" "暮らし [2]" "福井" "社会"
[5,] "図る" "反対" "充実" "日本" "山形" "保全"
[6,] "地域" "増税" "保険 [✓]" "改悪" "熊本" "守る"
[7,] "推進" "日本" "支援" "増税" "米" "生活"
[8,] "促進" "ひと" "負担" "アメリカ" "奈良" "教育"
[9,] "漁業 [✓]" "力" "実現" "社会" "香川" "問題"
[10,] "充実" "全力" "保育" "守る" "改善" "取り組む"
[11,] "交通" "党" "雇用" "自民党" "恩給" "地域"
[12,] "産業" "公約" "安心" "保障" "恩" "資源"
[13,] "早期" "許す" "拡充" "企業" "県民" "豊か"
[14,] "農林" "守る" "子育て" "戦争 [✓]" "開発 [1]" "美しい"
[15,] "対策" "進める" "費" "共産" "遺族" "緑"
T_3 T_4 T_5 T_6 T_7 T_8 T_9
[1,] "選挙" "地方" "教育" "委員" "政治" "円" "政治"
[2,] "区" "地域" "子供" "長" "社会" "減税" "郷土"
[3,] "院" "分権" "福祉" "大臣" "改革" "拡大" "力"
[4,] "議員" "国" "社会" "国" "日本" "税 [2]" "教育"
[5,] "衆議" "改革" "ひと" "内閣" "全力" "対策" "発展"
[6,] "国会" "財源" "学校" "自民党" "世紀" "企業" "心"
[7,] "ひと" "権限" "心" "党" "取り組む" "中小" "つとめる"
[8,] "票" "社会" "イジメ" "会長" "国際" "大型" "豊か"
[9,] "候補" "中央" "大切" "議員" "豊か" "教育" "全力"
[10,] "投票" "実現" "個性" "教育" "作り" "内需" "尽くす"
[11,] "代表" "制度" "問題" "院" "時代" "不況" "福祉"
[12,] "定数" "進める" "家庭" "国会" "問題" "図る" "清潔"
[13,] "選ぶ" "住民" "値" "衆議" "経済" "所得" "振興"
[14,] "比例" "確立" "取り組む" "政策" "新しい" "間接" "国政"
[15,] "有権者" "行政" "偏差" "当選" "高齢 [3]" "反対" "企業"
T_10 T_11 T_12 T_13 T_14 T_15
[1,] "政治" "政治" "社会" "政治" "政治" "党"
[2,] "日本" "税 [2]" "作り" "新しい" "日本" "日本"
[3,] "党" "消費 [2]" "豊か" "日本" "新しい" "共産"
[4,] "共産" "廃止" "目指す" "地方" "時代" "増税"
[5,] "自民党" "自民党" "図る" "作る" "力" "企業"
[6,] "改革" "税制" "地域" "新党" "変える" "政治"
[7,] "憲法" "国民" "教育" "改革" "世紀" "国民"
[8,] "国民" "党" "福祉" "変える" "若い" "民主"
[9,] "新しい" "リクルート" "実現" "分権" "改革" "主人公"
[10,] "発言" "選挙" "つとめる" "時代" "未来" "つらぬく"
[11,] "神" "院" "推進" "主権" "行動" "流れ"
[12,] "平和 [4]" "金" "充実" "国" "社会" "米"
[13,] "国" "政権" "生活" "中央" "変わる" "新しい"
[14,] "提案" "腐敗" "世紀" "主義" "世代" "基地"
[15,] "森" "権" "環境" "変革" "実現" "選挙"
T_16 T_17 T_18 T_19 T_20 T_21 T_22
[1,] "日本" "年度" "エネルギー" "景気 [2]" "作り" "議員" "道路"
[2,] "国民" "平成" "安全" "回復" "まち" "国会" "年金"
[3,] "党" "円" "発電" "対策" "都市" "法案" "高速"
[4,] "守る" "予算" "開発 [1]" "社会" "地域" "立法" "無料"
[5,] "共産" "対策" "原子力" "経済" "文化" "成立" "廃止"
[6,] "民主" "事業" "自然" "日本" "推進" "院" "実現"
[7,] "主義" "市" "世界" "改革" "整備 [1]" "提出" "ひと"
[8,] "政治" "金" "政策" "全力" "交通" "衆議" "削減"
[9,] "自由" "鹿児島" "ひと" "安心" "自然" "委員" "政権"
[10,] "企業" "費" "原発" "雇用" "ひと" "改正" "補助"
[11,] "声" "北九州" "核" "高齢 [3]" "強い" "問題" "事業"
[12,] "平和 [4]" "特別" "建設" "政策" "環境" "質問" "金"
[13,] "再建" "宣言" "県民" "不安" "経済" "法律" "基礎"
[14,] "医療" "計画" "環境" "福祉" "緑" "案" "財源"
[15,] "優先" "交付" "県" "実現" "中心" "調査" "公共"
T_23 T_24 T_25 T_26 T_27 T_28 T_29
[1,] "ゼ" "社会" "問題" "日本" "故郷" "大阪" "円"
[2,] "ロ" "暮らし [2]" "必要" "国" "政治" "大分" "年金"
[3,] "導入" "守る" "経済" "社会" "心" "空港" "制度"
[4,] "実現" "保障" "政策" "国民" "ひと" "目指す" "廃止"
[5,] "児童" "予算" "日本" "教育" "日本" "日本" "医療"
[6,] "国" "国民" "社会" "守る" "豊か" "国際" "月額"
[7,] "支援" "公共" "課題" "国家" "人間" "実現" "手当"
[8,] "首相" "ルール" "国" "経済" "世紀" "関西" "地域"
[9,] "保育" "規制" "重要" "責任" "世界" "佐藤" "企業"
[10,] "財政" "事業" "我が国" "基本" "文化" "都市" "金"
[11,] "待機" "雇用" "力" "創る" "国際" "交通" "支給"
[12,] "作戦" "介護 [3]" "現在" "心" "和歌山" "建設" "子供"
[13,] "公選" "中小" "努力" "安全" "生きる" "地元" "最低"
[14,] "道" "日本" "持つ" "大切" "福祉" "教育" "後期"
[15,] "革命" "企業" "解決" "世界" "持つ" "国" "実現"
T_30 T_31 T_32 T_33 T_34 T_35
[1,] "平和 [4]" "い" "憲法" "整備 [1]" "党" "税 [2]"
[2,] "政治" "素" "守る" "線" "日本" "医療"
[3,] "守る" "晴" "平和 [4]" "道路" "比例" "企業"
[4,] "憲法" "し" "反対" "都市" "選挙" "金"
[5,] "福祉" "山梨" "命" "建設" "共産" "政治"
[6,] "実現" "豊か" "暮らし [2]" "実現" "票" "政党"
[7,] "社会" "栃木" "福祉" "促進" "代表" "費"
[8,] "目指す" "文化" "生活" "駅" "自民党" "年金"
[9,] "生活" "生活" "雇用" "早期" "議席" "助成"
[10,] "国民" "県" "ひと" "交通" "民主" "反対"
[11,] "主義" "自然" "社民党" "号線" "書く" "守る"
[12,] "教育" "清" "医療" "推進" "区" "支援"
[13,] "軍縮" "世紀" "戦争 [4]" "市" "守る" "子育て"
[14,] "人権" "夢" "労働" "解消" "進める" "米"
[15,] "民主" "明るい" "国" "対策" "改革" "なくす"
T_36 T_37 T_38 T_39 T_40 T_41
[1,] "税金 [2]" "税 [2]" "自民党" "改革" "税 [2]" "政治"
[2,] "無駄" "契約" "廃止" "推進" "住宅" "改革"
[3,] "議員" "政治" "税 [2]" "社会" "消費 [2]" "国民"
[4,] "官僚" "料金" "政治" "教育" "生活" "信頼"
[5,] "天下り" "兆" "消費 [2]" "政策" "減税" "政策"
[6,] "削減" "円" "国民" "確立" "円" "実現"
[7,] "廃止" "責任" "自由" "制度" "資産" "責任"
[8,] "禁止" "地方" "輸入" "実現" "税制" "持つ"
[9,] "金" "改革" "コメ" "環境" "土地" "選挙"
[10,] "公務員" "年金" "企業" "経済" "相続" "制度"
[11,] "企業" "消費 [2]" "日本" "保障" "実現" "真"
[12,] "年金" "実現" "守る" "構築" "年金" "確立"
[13,] "なくす" "公共" "金" "構造" "非課税" "姿勢"
[14,] "政治" "引き下げる" "献金" "基本" "廃止" "福祉"
[15,] "法人" "不安" "実現" "税制" "家賃" "実行"
T_42 T_43 T_44 T_45 T_46 T_47
[1,] "企業" "農業 [1]" "政治" "支援" "圏" "増税"
[2,] "中小" "自給" "国民" "申し上げる" "東京" "党"
[3,] "支援" "食糧" "生活" "政治" "首都" "憲法"
[4,] "まち" "率" "手" "選挙" "都市" "円"
[5,] "雇用" "食料" "良い" "郷土" "長崎" "自民党"
[6,] "対策" "図る" "党利" "決意" "地方" "守る"
[7,] "制度" "向上" "党略" "心から" "集中" "民営"
[8,] "教育" "国民" "利益" "あたたかい" "県" "庶民"
[9,] "進める" "安全" "権力" "国民" "農業 [1]" "郵政"
[10,] "景気 [2]" "制度" "ひと" "努力" "茨城" "民主"
[11,] "安心" "安定" "無視" "発展" "移転" "日本"
[12,] "事業" "守る" "首相" "心" "国際" "反対"
[13,] "商店" "農家" "解散" "改革" "機能" "改悪"
[14,] "作り" "保障" "遠い" "国政" "実現" "野党"
[15,] "環境" "輸入" "不在" "立候補" "税制" "確か"
T_48 T_49 T_50 T_51 T_52 T_53 T_54
[1,] "党" "地域" "安全" "基地" "農林" "党" "市"
[2,] "政治" "安心" "対策" "沖縄" "産業" "円" "県"
[3,] "改革" "安全" "犯罪" "米" "県" "自民党" "区"
[4,] "企業" "支援" "強化" "軍 [4]" "水産 [1]" "費" "町"
[5,] "国民" "再生" "災害" "県民" "漁業 [1]" "軍事 [4]" "時代"
[6,] "自民党" "日本" "治安" "振興" "秋田" "守る" "新潟"
[7,] "日本" "対策" "拉致" "縮小" "宮崎" "共産" "岡山"
[8,] "共産" "経済" "改革" "平和 [4]" "地方" "中曽根" "静岡"
[9,] "金" "雇用" "安心" "安保" "振興" "反対" "日本海"
[10,] "献金" "医療" "支援" "返還" "地域" "暮らし [2]" "富山"
[11,] "権" "教育" "問題" "撤去" "北海道" "教育" "空港"
[12,] "選挙" "環境" "守る" "条約" "県民" "政治" "実現"
[13,] "禁止" "作り" "北朝鮮" "図る" "岩手" "福祉" "千葉"
[14,] "腐敗" "力" "体制" "離島" "農" "老人" "建設"
[15,] "憲法" "保障" "被害" "利用" "北" "国会" "北"
T_55 T_56 T_57 T_58 T_59 T_60
[1,] "改革" "円" "自民党" "社会" "社会" "政権"
[2,] "行政" "兆" "党" "女性" "子供" "生活"
[3,] "財政" "ひと" "改革" "男女" "安心" "税金 [2]"
[4,] "規制" "事業" "選挙" "目指す" "作る" "交代"
[5,] "地方" "負担" "政権" "福祉" "日本" "無駄"
[6,] "緩和" "財源" "政治" "平和 [4]" "未来" "国民"
[7,] "介護 [3]" "借金" "政党" "進める" "元気" "地域"
[8,] "分権" "年間" "作る" "実現" "作り" "民主"
[9,] "省庁" "国" "民主" "人権" "力" "変える"
[10,] "福祉" "国民" "政策" "環境" "国" "党"
[11,] "断行" "財政" "新しい" "差別" "女性" "医療"
[12,] "景気 [2]" "税金 [2]" "派" "確立" "夢" "子育て"
[13,] "行財政" "公共" "野党" "共同" "働く" "財源"
[14,] "推進" "無駄" "自由" "平等" "暮らせる" "年金"
[15,] "行革" "税 [2]" "中心" "参画" "希望" "官僚"
T_61 T_62 T_63 T_64 T_65 T_66
[1,] "技術" "市民" "政治" "改革" "年金" "円"
[2,] "産業" "政治" "声" "郵政" "円" "国民"
[3,] "情報" "民主" "ひと" "民営" "兆" "党"
[4,] "教育" "官僚" "守る" "政府" "廃止" "政権"
[5,] "科学" "社会" "働く" "小泉" "改革" "日本"
[6,] "地域" "情報" "生活" "民間" "無駄" "兆"
[7,] "研究" "公開" "作る" "郵便" "政権" "自公"
[8,] "育成" "主役" "国民" "国民" "実現" "高齢 [3]"
[9,] "国際" "中心" "実現" "官" "増税" "主人公"
[10,] "いかす" "実現" "がんばる" "構造" "削減" "政治"
[11,] "作り" "参加" "暮らし [2]" "局" "日本" "共産"
[12,] "開発 [1]" "共生" "力" "年金" "地域" "費"
[13,] "世界" "行政" "国政" "民" "一元化" "軍事 [4]"
[14,] "日本" "党" "いかす" "財政" "保険 [3]" "消費 [2]"
[15,] "文化" "責任" "国会" "地方" "サラリーマン" "医療"
T_67 T_68 T_69 T_70 T_71 T_72
[1,] "自由" "ひと" "れる" "党" "社会" "日本"
[2,] "主義" "政治" "と" "日本" "党" "世界"
[3,] "社会" "声" "バランス" "共産" "事業" "平和 [4]"
[4,] "民主" "年間" "徳島" "国民" "万博" "国"
[5,] "世界" "国政" "教育" "政治" "日本" "国際"
[6,] "政治" "問題" "作る" "反対" "作る" "経済"
[7,] "日本" "経験" "調和" "主権" "歩" "貢献"
[8,] "平和 [4]" "持つ" "日本" "目指す" "景気 [2]" "外交"
[9,] "体制" "議員" "社会" "守る" "憲法" "アジア"
[10,] "経済" "地元" "進める" "選挙" "自民党" "国民"
[11,] "豊か" "自分" "豊か" "在" "力" "関係"
[12,] "東欧" "生活" "経済" "平和 [4]" "県民" "社会"
[13,] "守る" "働く" "体育" "政党" "守る" "連"
[14,] "福祉" "生まれる" "世界" "公約" "政治" "協力"
[15,] "米" "若い" "県" "アメリカ" "共産" "国家"
T_73 T_74 T_75 T_76
[1,] "日本" "政権" "年金" "政治"
[2,] "国" "交代" "負担" "改革"
[3,] "国民" "民主" "の" "腐敗"
[4,] "問題" "党" "税 [2]" "実現"
[5,] "必要" "日本" "分" "政権"
[6,] "ひと" "変える" "基礎" "金"
[7,] "自分" "不安" "消費 [2]" "自民党"
[8,] "良い" "自民党" "国庫" "国民"
[9,] "責任" "国民" "財源" "権"
[10,] "教育" "年金" "将来" "選挙"
[11,] "作る" "政策" "引き上げる" "新しい"
[12,] "将来" "実現" "円" "防止"
[13,] "取る" "安心" "ひと" "制度"
[14,] "持つ" "将来" "所得" "党"
[15,] "改める" "経済" "日本" "生活"
[[1]]
[[2]]
[[3]]
get_lda_result(doc_folder, seed_list, iter_num, k=80, showtop=T) 1 2 3 4 5 6 7 8 9 10
1 地域 対策 社会 地方 社会 行政 環境 子供 安全 年金
2 再生 図る 保障 分権 女性 改革 地球 安心 対策 制度
3 経済 振興 日本 地域 環境 規制 自然 社会 安心 円
4 活性 改善 暮らし 国 働く 緩和 保全 未来 保障 医療
5 元気 つとめる 予算 中央 男女 法人 エネルギー 元気 強化 地域
6 産業 充実 自民党 権限 参加 省庁 社会 希望 食 廃止
7 支援 推進 憲法 自治 実現 地方 水 作る 再生 手当
8 構築 企業 守る 財源 高齢 介護 資源 夢 犯罪 金
9 支える 福祉 政治 確立 共同 断行 美しい 育てる 治安 無駄
10 雇用 中小 ルール 制度 参画 削減 循環 暮らせる 災害 月額
11 創出 開発 規制 主権 育児 責任 リサイクル 持てる 制度 子供
12 自立 促進 国民 自立 労働 大胆 保護 老後 拉致 最低
13 観光 努力 事業 住民 福祉 撤廃 優しい 日本 外交 主権
14 社会 育成 共産党 市町村 子供 行革 破壊 若者 教育 補償
15 環境 事業 介護 集権 家庭 官僚 緑 取り戻す 体制 創設
11 12 13 14 15 16 17 18 19 20
1 政治 財政 基地 日本 新しい 年金 日本 都市 文化 企業
2 腐敗 経済 米 国 時代 負担 国民 線 国際 中小
3 改革 行政 沖縄 国家 世紀 制度 共産党 市 都市 支援
4 実現 社会 軍 教育 ひらく 保険 守る 実現 作り 雇用
5 制度 改革 目指す 基本 目指す ひと 民主 整備 推進 制度
6 防止 再建 企業 経済 社会 保障 税 駅 スポーツ 事業
7 金権 政府 医療 持つ 向ける 医療 声 建設 交流 金融
8 選挙 構造 県民 日本人 未来 費 消費 推進 大阪 経営
9 制定 高齢 平和 社会 求める 所得 政治 促進 振興 零細
10 資金 成長 守る 国民 挑戦 基礎 公約 交通 育成 経済
11 確立 効率 安保 歴史 迎える 軽減 反対 早期 空港 融資
12 生活 赤字 福祉 家族 対応 引き上げる 政党 東京 いかす 商店
13 献金 世代 進める 責任 変革 介護 やめる 解消 伝統 公共
14 事件 将来 充実 良い 創る 国庫 つらぬく 道路 産業 保証
15 強化 国家 利用 誇り 行動 給付 目指す 町 圏 予算
21 22 23 24 25 26 27 28 29
1 心 自民党 税 政治 力 県 政治 技術 守る
2 社会 改革 消費 政党 若い 農業 信頼 産業 暮らし
3 豊か 政治 所得 体質 いかす 県民 清潔 情報 命
4 人間 政権 税制 わかる 経験 発展 豊か 育成 国民
5 教育 新しい 税率 保守 世代 産業 信条 科学 企業
6 大切 選挙 福祉 良い 行動 全国 持つ 開発 平和
7 福祉 党 国民 不信 時代 北 誠実 教育 約束
8 世紀 政党 見直し 政界 情熱 日本海 立つ 研究 医療
9 育てる 支配 反対 正す 国政 図る 努力 国際 がんばる
10 思いやり 交代 引き上げ 感 世紀 青森 姿勢 推進 許す
11 文化 政界 是正 かかる 持つ 地元 立場 創造 子供
12 自然 連立 負担 自身 秋田 福井 共に 環境 大切
13 愛 派 不公平 利益 福祉 山形 原点 人材 中小
14 生きる 内閣 住民 岡山 地元 圏 汗 通信 働く
15 個性 勢力 品 自分 実行 福島 道 整備 優先
30 31 32 33 34 35 36 37
1 政権 年金 故郷 減税 医療 作る ひと 図る
2 税金 円 豊か 円 制度 日本 自分 つとめる
3 交代 廃止 活力 拡大 介護 進める 持つ 充実
4 無駄 実現 作り 不況 充実 国民 育つ 進める
5 変える 無駄 郷土 大型 福祉 新しい 感じる 振興
6 官僚 兆 世紀 内需 年金 国 子供 教育
7 民主党 金 溢れる 対策 保険 守る 仕事 安定
8 なくす 削減 発展 大幅 高齢 約束 父 実現
9 天下り 改革 夢 間接 支援 力 先生 目指す
10 使い 制度 心 中曽根 障害 抜本 知る 確立
11 使う 子供 住む 反対 サービス 合わせる 生まれる 産業
12 癒着 一元化 創造 所得 体制 柱 良い 福祉
13 しがらみ ひと 明日 税 施設 強める 京都 育成
14 必要 サラリーマン 文化 導入 保障 合意 心 地域
15 変わる 地域 魅力 平和 健康 改める 働く 活性
38 39 40 41 42 43 44 45 46
1 ひと 目指す 必要 整備 議員 農林 政治 推進 増税
2 働く 実現 問題 交通 国会 漁業 日本 対策 憲法
3 作る 社会 現在 生活 法案 水産 変える 整備 自民党
4 大切 高齢 政策 地域 成立 振興 変わる 社会 反対
5 国 福祉 状況 網 立法 産業 力 確立 守る
6 年寄り 安心 進む 道路 改正 地場 新しい 強化 庶民
7 弱い 生活 経済 基盤 衆議院 観光 流れ 確保 改悪
8 力 暮らせる 重要 豊か 年間 工業 大きい 支援 民営
9 がんばる 公正 最大 充実 首相 北海道 国民 施策 野党
10 必要 活力 議論 環境 活動 農 立つ 総合 郵政
11 立場 公平 主張 発展 法律 地域 動く 促進 確か
12 生きる 充実 将来 福祉 提案 福祉 約束 安定 日本
13 まじめ 教育 人口 取り組む 案 林業 怒り 積極 戦争
14 大事 図る 得る 体系 政府 県 戦う 体制 共産党
15 支える 信頼 我が国 作り 定数 宮崎 チャンス 図る 条
47 48 49 50 51 52 53 54 55 56
1 住宅 責任 作り 共産党 税 企業 我が国 問題 改革 円
2 税 国 まち 自民党 消費 自民党 努力 取り組む 推進 国民
3 生活 持つ 国 費 廃止 改革 国際 解決 実現 政権
4 減税 未来 進める 軍事 自民党 国民 社会 課題 断行 医療
5 土地 力 環境 反対 政治 献金 経済 環境 教育 費
6 資産 日本 教育 円 自由 共産党 安定 重要 構造 兆
7 実現 強い 地域 平和 輸入 日本 発展 全力 行財政 自公
8 老人 創る 安心 暮らし 国民 党 世紀 教育 制度 税
9 相続 必要 商店 中曽根 コメ 金権 世界 高齢 抜本 派遣
10 パート 感 ひと 戦争 阻止 政治 時代 改革 税制 高齢
11 軽減 信頼 活動 削る 企業 禁止 対応 立つ 実行 保障
12 非課税 勇気 強い やめる 献金 選挙 課題 立場 真 軍事
13 実施 将来 住む 教育 団体 団体 繁栄 社会 行政 主人公
14 固定 果たす 目指す 老人 禁止 憲法 重要 戦後 見直し 労働
15 家賃 良い 安全 イジメ 国会 区 貿易 抱える 進める 財源
57 58 59 60 61 62 63 64 65
1 政策 円 憲法 教育 景気 全力 選挙 世界 道路
2 生活 兆 消費 子供 回復 尽くす 区 平和 年金
3 経済 事業 税 学校 対策 力 票 国際 金
4 実現 公共 増税 社会 経済 実現 代表 外交 補助
5 社会 ひと アメリカ 福祉 社会 あげる ひと 貢献 削減
6 基本 予算 改悪 家庭 安定 がんばる 候補 アジア 廃止
7 教育 年間 暮らし 個性 取り組む 約束 比例 日本 議員
8 重点 財源 自民党 制度 高齢 福祉 政党 関係 ひと
9 確立 国 平和 確立 雇用 守る 自民党 協力 高速
10 優先 費 保障 イジメ 世紀 投球 政策 国連 事業
11 環境 無駄 反対 心 不況 合わせる 是非 積極 公共
12 置く 使う いい 徳島 実行 医療 投票 国 財源
13 中心 税金 社会 大切 信頼 求める 選択 信頼 無料
14 転換 負担 民主党 重視 危機 入れる 有権者 諸国 基礎
15 高齢 借金 共産党 のばす 本格 中小 選ぶ 進める 民主党
66 67 68 69 70 71 72 73 74
1 消費 市民 支援 政治 平和 国民 道 農業 不安
2 税 社会 子育て 声 憲法 政治 整備 自給 年金
3 政治 情報 保育 国政 人権 生活 早期 率 安心
4 廃止 参加 医療 反映 守る 手 道路 食糧 雇用
5 税制 公開 雇用 庶民 福祉 取り戻す 自動車 食料 社会
6 自民党 活動 拡充 国会 反対 実現 建設 向上 医療
7 国民 システム 充実 いかす 労働 本位 促進 安全 介護
8 選挙 官僚 介護 約束 基本 求める 完成 農家 将来
9 リクルート 主役 金 がんばる 差別 絶対 空港 安定 制度
10 不公平 共生 児童 届ける 生活 不在 高速 生産 保障
11 党 中心 安心 力 戦争 利益 新幹線 輸入 解消
12 公正 主導 対策 福祉 制定 優先 事業 確立 老後
13 政権 行政 ゼロ 聞く 許す 日本 国道 確保 生活
14 公平 民主党 制度 決意 権利 戻す 地域 経営 失業
15 社会党 自立 解消 取り戻す 尊重 支える 南 守る 経済
75 76 77 78 79 80
1 日本 支援 日本 主義 改革 委員
2 世界 申し上げる 増税 自由 民営 大臣
3 経済 郷土 共産党 民主 郵政 長
4 国 決意 消費 社会 小泉 平成
5 力 あたたかい 税 政治 民間 政策
6 大国 心 反対 国民 政府 内閣
7 道 心から 党 平和 官 実績
8 目指す 発展 国民 世界 郵便 国会
9 支える 国政 企業 体制 民 予算
10 世界一 立候補 つらぬく 経済 構造 議員
11 将来 選挙 流れ 日本 局 会長
12 先進 感謝 財政 確立 国 衆議院
13 進む 当選 選挙 資本 資金 当選
14 誇れる 賜る 主人公 守る 法人 総理
15 改革 力強い 政治 国家 公務員 党
[[1]]
[[2]]
# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=96)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list) 1 2 3 4 T_1
[1,] "整備 [✓]" "税 [✓]" "制度" "税 [2]" "エネルギー"
[2,] "地域" "消費 [✓]" "介護 [✓]" "消費 [2]" "青森"
[3,] "振興" "政治" "年金" "憲法" "発電"
[4,] "道路" "国民" "医療" "党" "県"
[5,] "産業" "増税" "保険 [✓]" "増税" "原子力"
[6,] "図る" "反対" "充実" "日本" "開発 [1]"
[7,] "充実" "党" "負担" "暮らし [2]" "バイオ"
[8,] "推進" "暮らし [✓]" "社会" "改悪" "建設"
[9,] "交通" "税率" "安心" "アメリカ" "安全"
[10,] "農林" "全力" "実現" "平和 [✓]" "原発"
[11,] "促進" "引き上げ" "高齢 [✓]" "政治" "県民"
[12,] "開発 [✓]" "力" "保障" "守る" "燃料"
[13,] "農業 [✓]" "税制" "雇用" "社会" "自然"
[14,] "発展" "中心" "支援" "保障" "マス"
[15,] "基盤" "ひと" "福祉" "自民党" "農林"
T_2 T_3 T_4 T_5 T_6 T_7 T_8
[1,] "都市" "教育" "年金" "改革" "地方" "地方" "税金 [2]"
[2,] "文化" "子供" "円" "日本" "分権" "地域" "無駄"
[3,] "国際" "改革" "改革" "経済" "地域" "金" "官僚"
[4,] "作り" "学校" "廃止" "教育" "進める" "事業" "政治"
[5,] "実現" "制度" "兆" "進める" "国" "交付" "年金"
[6,] "施設" "個性" "無駄" "科学" "改革" "再生" "変える"
[7,] "スポーツ" "福祉" "実現" "再生" "政治" "補助" "交代"
[8,] "圏" "イジメ" "削減" "構造" "中央" "公共" "なくす"
[9,] "福祉" "進める" "増税" "技術" "推進" "活性" "天下り"
[10,] "構想" "心" "子供" "自民党" "環境" "財源" "政権"
[11,] "生活" "値" "政権" "作る" "生活" "直接" "使い"
[12,] "まち" "偏差" "一元化" "官" "行政" "税 [2]" "日本"
[13,] "世紀" "確立" "地域" "食" "自治" "制度" "議員"
[14,] "教育" "家庭" "道路" "推進" "権限" "分権" "使う"
[15,] "交流" "高校" "日本" "民間" "政策" "予算" "予算"
T_9 T_10 T_11 T_12 T_13 T_14 T_15
[1,] "県" "平和 [4]" "議員" "社会" "対策" "政治" "政治"
[2,] "宮崎" "日本" "国会" "万博" "安全" "日本" "新しい"
[3,] "福井" "世界" "法案" "愛知" "安心" "新しい" "時代"
[4,] "山形" "国際" "立法" "党" "推進" "変える" "日本"
[5,] "道" "国" "成立" "日本" "社会" "作る" "改革"
[6,] "日本海" "貢献" "提出" "作る" "改革" "改革" "世紀"
[7,] "高速" "外交" "委員" "事業" "教育" "変わる" "行動"
[8,] "福島" "アジア" "院" "名古屋" "保障" "実現" "変革"
[9,] "自動車" "環境" "法律" "消費 [2]" "支援" "生活" "力"
[10,] "県内" "進める" "問題" "自民党" "雇用" "国" "実現"
[11,] "新幹線" "経済" "提案" "ひと" "日本" "力" "若い"
[12,] "県民" "目指す" "改正" "力" "経済" "経済" "目指す"
[13,] "交通" "連" "質問" "歩" "景気 [2]" "新生" "世界"
[14,] "大学" "関係" "案" "守る" "地域" "国民" "決意"
[15,] "農業 [1]" "社会" "衆議" "政府" "制度" "実行" "求める"
T_16 T_17 T_18 T_19 T_20 T_21
[1,] "九州" "日本" "産業" "郵便" "円" "党"
[2,] "鹿児島" "世界" "技術" "局" "減税" "共産"
[3,] "北九州" "国" "地域" "郵政" "税 [2]" "自民党"
[4,] "平成" "経済" "教育" "民営" "政治" "日本"
[5,] "空港" "力" "環境" "円" "大型" "費"
[6,] "福岡" "新しい" "社会" "小泉" "国民" "軍事 [4]"
[7,] "大分" "政策" "育成" "増税" "中曽根" "守る"
[8,] "市" "作る" "情報" "企業" "間接" "暮らし [2]"
[9,] "年度" "時代" "作り" "金融" "平和 [4]" "国民"
[10,] "道" "夢" "ひと" "負担" "反対" "反対"
[11,] "都市" "創る" "経済" "保険 [3]" "守る" "円"
[12,] "計画" "道" "整備 [1]" "年金" "拡大" "平和 [4]"
[13,] "炭" "ひと" "科学" "税金 [2]" "不況" "民"
[14,] "産" "広島" "国際" "事業" "教育" "削る"
[15,] "自動車" "国際" "推進" "地域" "自民党" "戦争 [4]"
T_22 T_23 T_24 T_25 T_26 T_27 T_28
[1,] "日本" "政治" "環境" "政治" "改革" "犯罪" "税 [2]"
[2,] "未来" "国民" "地球" "企業" "民営" "安全" "減税"
[3,] "社会" "改革" "社会" "金" "郵政" "ひと" "住宅"
[4,] "子供" "責任" "自然" "献金" "政府" "日本" "生活"
[5,] "国" "生活" "守る" "権" "民間" "治安" "消費 [2]"
[6,] "世代" "信頼" "保全" "禁止" "小泉" "問題" "円"
[7,] "責任" "持つ" "教育" "団体" "構造" "強化" "資産"
[8,] "持つ" "政策" "豊か" "腐敗" "官" "拉致" "相続"
[9,] "時代" "不信" "福祉" "国民" "国民" "安心" "実現"
[10,] "力" "感" "問題" "守る" "制度" "北朝鮮" "所得"
[11,] "将来" "地方" "生活" "反対" "社会" "解決" "年金"
[12,] "新しい" "わかる" "水" "一掃" "地方" "増員" "非課税"
[13,] "希望" "必要" "取り組む" "政党" "実現" "警察官" "土地"
[14,] "夢" "問題" "破壊" "国会" "民" "年金" "家賃"
[15,] "世紀" "目指す" "リサイクル" "実現" "年金" "外交" "固定"
T_29 T_30 T_31 T_32 T_33 T_34 T_35
[1,] "税 [2]" "円" "女性" "市民" "支援" "ひと" "教育"
[2,] "契約" "増税" "社会" "政治" "申し上げる" "子供" "日本"
[3,] "消費 [2]" "党" "子供" "社会" "郷土" "作る" "心"
[4,] "改革" "憲法" "作る" "官僚" "政治" "働く" "国"
[5,] "料金" "日本" "働く" "民主" "選挙" "心" "国民"
[6,] "政治" "税 [2]" "進める" "情報" "心" "命" "基本"
[7,] "円" "控除" "環境" "公開" "決意" "大切" "守る"
[8,] "地方" "民主" "作り" "主役" "あたたかい" "仕事" "大切"
[9,] "実現" "自民党" "安心" "参加" "心から" "社会" "文化"
[10,] "兆" "戦争 [4]" "教育" "行政" "国政" "生きる" "伝統"
[11,] "行政" "民営" "家庭" "福祉" "努力" "自分" "歴史"
[12,] "国" "郵政" "ひと" "中心" "立候補" "持つ" "日本人"
[13,] "官僚" "郵便" "育児" "活動" "発展" "年寄り" "国家"
[14,] "公共" "所得" "参加" "党" "感謝" "歳" "憲法"
[15,] "減税" "局" "年寄り" "共生" "全力" "強い" "精神"
T_36 T_37 T_38 T_39 T_40 T_41 T_42
[1,] "区" "円" "社会" "企業" "基地" "地方" "若い"
[2,] "市" "医療" "推進" "中小" "沖縄" "地域" "政治"
[3,] "県" "政権" "図る" "制度" "米" "日本" "力"
[4,] "町" "費" "つとめる" "まち" "軍 [4]" "国" "秋田"
[5,] "北" "兆" "改革" "雇用" "長崎" "社会" "世代"
[6,] "地域" "日本" "教育" "支援" "県民" "経済" "時代"
[7,] "新潟" "国民" "豊か" "商店" "振興" "分権" "情熱"
[8,] "全国" "党" "政治" "事業" "平和 [4]" "主権" "国際"
[9,] "産業" "自公" "実現" "景気 [2]" "県" "実現" "経験"
[10,] "千葉" "消費 [2]" "確立" "対策" "離島" "中央" "和歌山"
[11,] "国政" "税 [2]" "充実" "回復" "実現" "創る" "行動"
[12,] "発展" "政治" "福祉" "教育" "縮小" "変える" "世紀"
[13,] "市長" "高齢 [3]" "作り" "金融" "安保" "改革" "いかす"
[14,] "仙台" "企業" "育成" "安心" "撤去" "道" "日本"
[15,] "郡" "憲法" "中小" "融資" "建設" "確立" "県"
T_43 T_44 T_45 T_46 T_47 T_48
[1,] "党" "故郷" "増税" "改革" "安心" "選挙"
[2,] "日本" "豊か" "党" "行政" "作る" "院"
[3,] "共産" "産業" "守る" "財政" "不安" "衆議"
[4,] "増税" "作り" "憲法" "規制" "社会" "区"
[5,] "国民" "文化" "反対" "地方" "生活" "議員"
[6,] "政治" "自然" "日本" "緩和" "年金" "党"
[7,] "企業" "いかす" "自民党" "推進" "守る" "自民党"
[8,] "民主" "郷土" "庶民" "社会" "日本" "国会"
[9,] "自民党" "地域" "国民" "断行" "子供" "民主"
[10,] "つらぬく" "心" "改悪" "福祉" "医療" "票"
[11,] "消費 [2]" "世紀" "野党" "分権" "制度" "力"
[12,] "主人公" "目指す" "共産" "実現" "暮らせる" "参議"
[13,] "やめる" "活力" "民主" "行財政" "老後" "代表"
[14,] "変える" "住む" "確か" "構造" "暮らし [2]" "定数"
[15,] "流れ" "作る" "民営" "日本" "国民" "議席"
T_49 T_50 T_51 T_52 T_53 T_54
[1,] "農林" "国民" "社会" "政治" "党" "守る"
[2,] "水産 [1]" "党" "実現" "ひと" "日本" "政治"
[3,] "漁業 [1]" "民主" "目指す" "作り" "税 [2]" "教育"
[4,] "振興" "中心" "環境" "福祉" "共産" "介護 [3]"
[5,] "実現" "実現" "地域" "豊か" "消費 [2]" "規制"
[6,] "産業" "なくす" "安心" "教育" "企業" "切り替える"
[7,] "中小" "政治" "作り" "心" "米" "保険 [3]"
[8,] "県" "主人公" "福祉" "目指す" "癒着" "子供"
[9,] "地方" "日本" "豊か" "力" "選挙" "中心"
[10,] "企業" "同盟" "活力" "守る" "政治" "作る"
[11,] "岩手" "軍事 [4]" "経済" "社会" "増税" "暮らし [2]"
[12,] "所得" "力" "高齢 [3]" "実現" "流れ" "やめる"
[13,] "農山" "絶対" "暮らせる" "郷土" "官" "大型"
[14,] "県民" "推進" "子供" "清潔" "財" "企業"
[15,] "工業" "児童" "世紀" "信頼" "反対" "事業"
T_55 T_56 T_57 T_58 T_59 T_60
[1,] "景気 [2]" "道路" "い" "対策" "政治" "党"
[2,] "回復" "年金" "素" "円" "声" "改革"
[3,] "経済" "高速" "晴" "企業" "国政" "日本"
[4,] "対策" "廃止" "し" "教育" "庶民" "自民党"
[5,] "不安" "無料" "生活" "拡大" "国会" "共産"
[6,] "財政" "削減" "清" "図る" "いかす" "国民"
[7,] "雇用" "財源" "ひと" "減税" "力" "憲法"
[8,] "政策" "政権" "豊か" "改善" "暮らし [2]" "選挙"
[9,] "世紀" "ひと" "良い" "中小" "守る" "区"
[10,] "生活" "金" "国際" "安定" "生活" "ソ連"
[11,] "不況" "実現" "ゆとり" "家庭" "てる" "平和 [4]"
[12,] "事業" "補助" "持つ" "振興" "た" "円"
[13,] "社会" "事業" "く" "恩給" "変える" "抜本"
[14,] "公共" "無駄" "受ける" "努力" "反映" "新党"
[15,] "拡大" "議員" "恵まれる" "税 [2]" "届ける" "悪政"
T_61 T_62 T_63 T_64 T_65 T_66
[1,] "政治" "医療" "税 [2]" "政策" "世界" "県"
[2,] "改革" "支援" "自由" "国" "経済" "圏"
[3,] "自民党" "削減" "基礎" "国民" "社会" "茨城"
[4,] "政権" "金" "日本" "国家" "国際" "首都"
[5,] "腐敗" "子育て" "一新" "日本" "政治" "佐賀"
[6,] "党" "地域" "作る" "経済" "国民" "栃木"
[7,] "国民" "議員" "社会" "外交" "発展" "農業 [1]"
[8,] "新しい" "守る" "所得" "必要" "安定" "時代"
[9,] "金" "充実" "改める" "政府" "平和 [4]" "工業"
[10,] "実現" "環境" "経済" "保障" "我が国" "北関東"
[11,] "選挙" "公務員" "消費 [2]" "作る" "日本" "県南"
[12,] "権" "費" "仕組み" "国際" "自由" "生活"
[13,] "支配" "成長" "国" "行政" "世紀" "商"
[14,] "交代" "保育" "教育" "アメリカ" "生活" "郷土"
[15,] "事件" "解消" "国民" "機能" "郷土" "国民"
T_67 T_68 T_69 T_70 T_71 T_72
[1,] "問題" "れる" "対策" "円" "農業 [1]" "政権"
[2,] "必要" "と" "災害" "年金" "自給" "党"
[3,] "日本" "バランス" "支援" "制度" "率" "民主"
[4,] "経済" "国" "神戸" "地域" "食糧" "交代"
[5,] "社会" "調和" "被災" "医療" "食料" "日本"
[6,] "課題" "持つ" "復興" "廃止" "向上" "国民"
[7,] "政策" "問題" "地震" "月額" "安全" "政治"
[8,] "国" "必要" "防災" "手当" "守る" "自民党"
[9,] "解決" "作り" "住宅" "無駄" "図る" "政策"
[10,] "取り組む" "強い" "安全" "子供" "安定" "選挙"
[11,] "ひと" "求める" "被害" "企業" "実現" "実現"
[12,] "現在" "体制" "生活" "政権" "目指す" "政党"
[13,] "我が国" "生" "実現" "交代" "漁業 [1]" "変える"
[14,] "努力" "改革" "大震災" "支給" "国民" "選択"
[15,] "持つ" "米" "守る" "金" "保障" "マニフェスト"
T_73 T_74 T_75 T_76 T_77 T_78 T_79
[1,] "ゼ" "労働" "税 [2]" "円" "建設" "作り" "政治"
[2,] "ロ" "老人" "政治" "兆" "早期" "地域" "改革"
[3,] "支援" "充実" "消費 [2]" "ひと" "道路" "まち" "信頼"
[4,] "児童" "医療" "税制" "年間" "促進" "元気" "自由"
[5,] "実現" "制度" "廃止" "事業" "道" "日本" "倫理"
[6,] "保育" "金" "国民" "予算" "事業" "国" "制度"
[7,] "導入" "パート" "自民党" "国" "国道" "活性" "保守"
[8,] "作戦" "助成" "社会" "財源" "完成" "安心" "国民"
[9,] "子育て" "ホーム" "改革" "財政" "実現" "再生" "確立"
[10,] "待機" "増設" "不公平" "費" "整備 [1]" "支援" "取り組む"
[11,] "家庭" "特別" "公正" "借金" "バイパス" "ひと" "選挙"
[12,] "宣言" "支援" "リクルート" "負担" "推進" "観光" "推進"
[13,] "時間" "年金" "公平" "法人" "線" "進める" "自民党"
[14,] "仕事" "拡充" "福祉" "公共" "号" "商店" "金"
[15,] "財政" "国" "豊か" "年金" "自動車" "安全" "クリーン"
T_80 T_81 T_82 T_83 T_84 T_85
[1,] "政治" "線" "政治" "平和 [4]" "大阪" "改革"
[2,] "改革" "整備 [1]" "ひと" "憲法" "京都" "自民党"
[3,] "実現" "都市" "う" "社会" "都市" "政治"
[4,] "腐敗" "交通" "報" "守る" "推進" "政党"
[5,] "生活" "道路" "働く" "人権" "関西" "責任"
[6,] "制度" "実現" "持つ" "目指す" "支援" "日本"
[7,] "確立" "駅" "政策" "福祉" "地元" "政界"
[8,] "癒着" "まち" "まじめ" "反対" "目指す" "党"
[9,] "社会" "促進" "汗" "基本" "空港" "政策"
[10,] "環境" "推進" "努力" "差別" "発展" "選挙"
[11,] "選挙" "地下鉄" "変わる" "実現" "断行" "安定"
[12,] "防止" "解消" "自分" "雇用" "伝統" "政権"
[13,] "政" "網" "地元" "ひと" "市" "景気 [2]"
[14,] "金" "東京" "がんばる" "生活" "南部" "回復"
[15,] "官" "区" "変える" "戦争 [4]" "緑" "派"
T_86 T_87 T_88 T_89 T_90 T_91
[1,] "北海道" "全力" "日本" "税 [2]" "の" "委員"
[2,] "南" "実現" "国民" "消費 [2]" "分" "長"
[3,] "道" "取り組む" "党" "政治" "年金" "大臣"
[4,] "熊本" "改革" "守る" "廃止" "負担" "国"
[5,] "漁業 [1]" "問題" "共産" "自民党" "党" "内閣"
[6,] "産業" "尽くす" "民主" "国民" "日本" "国会"
[7,] "農" "政策" "政治" "自由" "国庫" "つとめる"
[8,] "新幹線" "福祉" "主義" "日本" "民主" "院"
[9,] "守る" "対策" "増税" "輸入" "税 [2]" "議員"
[10,] "育てる" "社会" "税 [2]" "コメ" "基礎" "会長"
[11,] "故郷" "経験" "声" "金" "引き上げる" "予算"
[12,] "農林" "高齢 [3]" "教育" "企業" "自民党" "衆議"
[13,] "約束" "国政" "福祉" "守る" "り" "対策"
[14,] "力" "課題" "政党" "院" "消費 [2]" "当選"
[15,] "がんばる" "いかす" "平和 [4]" "権" "円" "党"
T_92 T_93 T_94 T_95 T_96
[1,] "選挙" "主義" "日本" "日本" "農業 [1]"
[2,] "政治" "自由" "国民" "社会" "米"
[3,] "区" "社会" "党" "政治" "自由"
[4,] "ひと" "民主" "税 [2]" "保障" "農家"
[5,] "首相" "世界" "共産" "国民" "農政"
[6,] "議員" "日本" "政治" "党" "コメ"
[7,] "制度" "経済" "守る" "予算" "減反"
[8,] "国民" "党" "平和 [4]" "共産" "福祉"
[9,] "投票" "体制" "消費 [2]" "自民党" "県"
[10,] "選ぶ" "東欧" "公約" "平和 [4]" "農村"
[11,] "政党" "消費 [2]" "反対" "暮らし [2]" "反対"
[12,] "有権者" "平和 [4]" "選挙" "憲法" "阻止"
[13,] "国会" "共産" "主人公" "雇用" "輸入"
[14,] "導入" "税 [2]" "政党" "進める" "生産"
[15,] "公選" "守る" "目指す" "守る" "政策"
[[1]]
[[2]]
[[3]]
get_lda_result(doc_folder, seed_list, iter_num, k=100, showtop=T) 1 2 3 4 5 6 7 8 9
1 県 ひと 制度 作る 目指す 環境 企業 世界 政権
2 農業 心 介護 進める 実現 地球 中小 平和 交代
3 県民 大切 医療 日本 社会 自然 金融 国際 民主党
4 全国 社会 年金 国民 高齢 保全 零細 外交 実現
5 北 人間 保険 新しい 公正 世界 まち 貢献 自民党
6 宮崎 教育 保障 社会 確立 水 商店 アジア 変える
7 青森 生きる 安心 改革 安心 緑 活性 日本 日本
8 豊か 育てる 充実 力 福井 豊か 経営 関係 国民
9 長崎 共に 確立 改める 暮らせる 人間 融資 積極 政策
10 県内 支える 確保 守る 教育 美しい 雇用 国連 選択
11 山形 基本 導入 強める 環境 破壊 支援 安全 連立
12 福島 思いやり 高齢 世界 公平 大切 保証 諸国 作る
13 努力 精神 公的 増やす ひらく 生活 経済 協力 マニフェスト
14 発展 家族 見直し ひろげる 制度 守る 政府 信頼 変わる
15 誘致 幸せ 家族 国 正義 保護 予算 国 可能
10 11 12 13 14 15 16 17 18 19
1 社会 推進 増税 税 政治 図る 必要 政治 技術 政治
2 雇用 整備 反対 消費 変える つとめる 問題 政党 産業 国民
3 産業 環境 守る 改革 日本 安定 現在 選挙 科学 生活
4 支援 確立 憲法 行政 変わる 確立 政策 保守 情報 手
5 環境 施策 庶民 規制 力 充実 状況 政界 開発 取り戻す
6 構築 社会 野党 税率 大きい 進める 将来 政策 育成 利益
7 創出 基盤 自民党 介護 動く 目指す 重要 ひと 国際 本位
8 創る 地域 改悪 法人 流れ 振興 我が国 感 研究 不信
9 安心 促進 確か 地方 票 確保 進む 有権者 人材 不在
10 教育 育成 民営 削減 約束 教育 人口 資金 力 合意
11 育成 総合 国民 料金 怒り 向上 経済 良い 教育 わかる
12 創造 積極 郵政 撤廃 正す 強化 課題 感じる 通信 本当に
13 再生 体制 共産党 up 必ず 活性 主張 体質 創造 求める
14 経済 確保 日本 契約 来る 発展 全体 権力 先端 ひらく
15 システム 農林 サービス 省庁 動かす 促進 含める 選ぶ 資源 絶対
20 21 22 23 24 25 26 27
1 ひと 改革 年金 市 国 若い 改革 政治
2 自分 郵政 廃止 施設 日本 力 断行 信頼
3 仕事 民営 道路 実現 国家 世代 推進 清潔
4 働く 政府 削減 福祉 国民 政治 実現 誠実
5 必要 小泉 金 老人 持つ 行動 制度 信条
6 わかる 民間 補助 充実 良い 新しい 行財政 豊か
7 出る 郵便 実現 町 経済 時代 構造 姿勢
8 感じる 官 議員 センター 日本人 情熱 抜本 持つ
9 良い 民 無駄 設置 社会 世紀 税制 確立
10 知る 局 ひと 建設 誇り 挑戦 真 こたえる
11 受ける 年金 財源 健康 基本 持つ 行政 倫理
12 持つ 公務員 高速 大学 責任 歳 実行 道
13 作る 地方 無料 誘致 価値 父 大胆 歩む
14 言葉 国民 民主党 特別 改める 感覚 本当 実行
15 本当に サービス マニフェスト 地元 自分 岡山 進める 不信
28 29 30 31 32 33 34 35 36
1 日本 豊か 労働 政治 道 新しい 社会 責任 社会
2 企業 活力 実現 改革 早期 政治 日本 国 女性
3 税 社会 制度 自民党 建設 改革 作る 持つ 男女
4 増税 推進 時間 腐敗 促進 時代 力 未来 参加
5 国民 世紀 雇用 選挙 道路 日本 自民党 将来 子供
6 消費 作り 確立 党 整備 変革 政治 日本 共同
7 基地 教育 改善 金権 自動車 創る 中心 強い 働く
8 優先 心 働く 防止 完成 古い 守る 必要 参画
9 政治 創造 生活 政権 事業 歴史 事業 勇気 目指す
10 福祉 福祉 制定 制度 空港 決意 森 果たす 福祉
11 ストップ 健康 年金 支配 国道 行動 首相 信頼 実現
12 医療 育成 条件 新しい 開発 挑戦 消費 感 障害
13 共産党 青少年 拡大 派 新幹線 新党 ひと 役割 高齢
14 民主 生きがい 充実 制定 バイパス 流れ 政府 力 優しい
15 反対 個性 パート 事件 着工 起こす 経済 国民 家庭
37 38 39 40 41 42 43 44 45 46
1 税 円 支援 都市 日本 国会 不安 事業 医療 主義
2 平和 国民 保育 東京 共産党 議員 年金 公共 支援 自由
3 消費 医療 子育て 圏 国民 法案 社会 国 雇用 民主
4 保障 政権 制度 国際 消費 成立 雇用 教育 介護 社会
5 社会 費 充実 大阪 税 立法 将来 ひと 金 世界
6 年金 自公 拡充 実現 増税 衆議院 安心 予算 保障 体制
7 アメリカ 兆 介護 構想 民主 年間 生活 投資 安心 平和
8 企業 税 児童 首都 つらぬく 改正 解消 費 制度 政治
9 増税 高齢 医療 時代 反対 案 失業 転換 子育て 経済
10 雇用 消費 年金 目指す 企業 法律 老後 学校 成長 確立
11 なくす 派遣 安心 文化 党 削減 介護 拡大 強化 守る
12 政治 主人公 ゼロ 機能 やめる 提出 ひと 雇用 対策 国家
13 いい 軍事 育児 中心 自由 提案 医療 必要 解消 選択
14 日本 保障 サービス 福祉 守る 定数 犯罪 年金 再生 東欧
15 独立 雇用 障害 集中 主人公 活動 倒産 進める 削減 国民
47 48 49 50 51 52 53 54 55
1 農林 農業 福祉 教育 整備 希望 日本 故郷 選挙
2 漁業 自給 充実 子供 線 夢 社会 豊か 区
3 産業 率 医療 学校 交通 持てる 国民 郷土 票
4 水産 食糧 教育 個性 道路 ひと 国 作り 自民党
5 振興 食料 実現 家庭 都市 働く 保障 心 代表
6 農 向上 高齢 制度 推進 社会 政府 世紀 候補
7 工業 安全 社会 心 駅 若者 政治 活力 比例
8 地場 農家 図る イジメ 建設 実現 改革 住む 投票
9 北海道 生産 年金 育てる 促進 子供 目指す 愛 支持
10 商 輸入 施設 福祉 実現 汗 暮らし 発展 議員
11 林業 高める 障害 のばす 網 未来 経済 明日 問う
12 秋田 農政 健康 教師 解消 年寄り 良い 時代 有権者
13 農業 農産物 サービス 値 下水道 安心 歩 創る 選ぶ
14 生産 供給 在宅 偏差 地下鉄 作る アメリカ 明るい 是非
15 図る 価格 保健 大切 早期 報う 企業 愛する 衆議院
56 57 58 59 60 61 62 63
1 つとめる 税 守る 基地 安心 作り 対策 減税
2 整備 消費 予算 米 子供 まち 企業 円
3 振興 憲法 暮らし 沖縄 元気 進める 中小 拡大
4 郷土 増税 保障 実現 未来 国 推進 大型
5 充実 暮らし 政治 軍 社会 ひと 強化 不況
6 図る 改悪 自民党 利用 暮らせる 地域 制度 内需
7 努力 アメリカ ルール 県民 作る 強い 充実 間接
8 改善 自民党 介護 縮小 育てる 商店 拡充 大幅
9 発展 平和 憲法 建設 取り戻す 支援 実施 中曽根
10 福祉 保障 公共 開発 老後 住む 支援 税
11 育成 守る 社会 返還 環境 教育 改善 反対
12 道路 共産党 事業 目指す 子育て 災害 進める 教育
13 開発 条 規制 振興 活力 京都 緊急 対策
14 地場 応援 共産党 安保 創る 環境 政策 所得
15 婦人 民主党 切り替える 島 育つ 取り組む 措置 導入
64 65 66 67 68 69 70 71
1 税 景気 政治 円 世紀 消費 環境 政策
2 消費 回復 立つ 兆 社会 税 エネルギー 経済
3 廃止 対策 立場 ひと 時代 廃止 社会 教育
4 自民党 経済 庶民 年間 新しい 税制 自然 基本
5 自由 取り組む 先頭 国 高齢 政治 資源 実現
6 輸入 安定 ひと 年金 対応 自民党 もの 重点
7 政治 世紀 弱い 所得 ひらく 選挙 リサイクル 改革
8 コメ 高齢 目指す 予算 向ける 社会党 地球 実行
9 国民 信頼 福祉 借金 求める 不公平 政策 確立
10 阻止 実行 がんばる 現在 システム リクルート 教育 生活
11 献金 本格 弱者 費 迎える 公正 推進 福祉
12 企業 活性 原点 年度 変化 国民 転換 置く
13 金権 教育 光 特別 新た 公平 ゴミ 転換
14 禁止 明るい 戦う 国民 課題 軍縮 廃棄 取り組む
15 団体 山梨 絶対 増 取り組む 参議院 促進 中心
72 73 74 75 76 77 78 79 80
1 日本 年金 共産党 安全 我が国 税 日本 日本 平和
2 税 負担 自民党 対策 努力 住宅 世界 国民 憲法
3 消費 制度 費 安心 国際 減税 国 政治 人権
4 癒着 費 軍事 強化 経済 生活 経済 公約 守る
5 企業 保険 守る 食 安定 税制 力 共産党 基本
6 官 ひと 反対 災害 発展 資産 支える 守る 福祉
7 政 基礎 平和 犯罪 郷土 所得 世界一 選挙 反対
8 財 所得 暮らし 治安 繁栄 消費 先進 税 差別
9 共産党 安心 円 支援 時代 土地 誇れる 政党 戦争
10 選挙 保障 中曽根 保障 世界 非課税 日本人 平和 制定
11 流れ 引き上げる 戦争 体制 貿易 相続 柱 審判 尊重
12 新しい 医療 福祉 拉致 課題 軽減 進路 声 平等
13 反対 軽減 削る 危機 情勢 家賃 尊敬 反対 許す
14 米 給付 国会 防災 対応 固定 世界中 優先 進める
15 増税 将来 老人 確保 迎える サラリーマン リード ノー 障害
81 82 83 84 85 86 87 88 89 90
1 年金 日本 地方 全力 再生 文化 声 行政 増税 整備
2 制度 政治 分権 尽くす 改革 産業 国政 財政 円 道路
3 円 国民 国 実現 経済 振興 いかす 改革 憲法 交通
4 医療 福祉 中央 力 日本 いかす 経験 再建 自民党 高速
5 地域 教育 権限 あげる 可能 作り 政治 経済 税 網
6 廃止 守る 確立 約束 地方 教育 反映 政府 民主党 道
7 月額 生活 自治 がんばる 国 地域 国会 緩和 日本 観光
8 手当 医療 財源 発展 持続 伝統 届ける 規制 控除 基盤
9 子供 実現 地域 福祉 成長 スポーツ 地元 構造 守る 発展
10 無駄 規制 行政 投球 構造 自然 現場 社会 戦争 空港
11 金 環境 主権 取り組む 宣言 観光 聞く 効率 民営 振興
12 支給 復興 移譲 決意 制度 地場 働く 赤字 条 新幹線
13 最低 被災 住民 注ぐ 金融 歴史 決意 活力 改悪 産業
14 創設 再建 集権 いかす 保障 国際 香川 高齢 郵政 農林
15 子育て 阻止 州 求める 外交 豊か がんばる 健全 公明党 体系
91 92 93 94 95 96 97 98
1 自民党 守る 市民 生活 支援 増税 問題 地域
2 企業 暮らし 情報 社会 申し上げる 日本 取り組む 経済
3 改革 命 官僚 豊か 決意 国民 解決 活性
4 国民 作る 公開 実現 心から 政治 課題 作り
5 献金 大切 参加 経済 あたたかい 税 改革 取り組む
6 共産党 国民 活動 環境 心 消費 重要 力
7 金権 平和 システム 実感 郷土 共産党 全力 生活
8 政治 約束 行政 ゆとり 国政 反対 必要 活動
9 日本 ひと 主役 大国 選挙 つらぬく 山積 いかす
10 党 医療 政治 優先 立候補 全力 戦後 住民
11 禁止 働く 共生 高齢 感謝 党 抱える 活力
12 選挙 生命 中心 政策 賜る 中心 最大 再生
13 団体 子供 社会 福祉 当選 力 努力 魅力
14 腐敗 生きる 主権 活力 力強い 作る 向ける 全体
15 憲法 仕事 民主党 築く 発展 流れ 立場 ネットワーク
99 100
1 税金 委員
2 無駄 大臣
3 官僚 長
4 なくす 内閣
5 予算 平成
6 天下り 実績
7 使う 総理
8 変える 国会
9 使い 当選
10 年金 衆議院
11 議員 党
12 禁止 会長
13 徹底的 経験
14 無駄遣い 政策
15 必要 議員
[[1]]
[[2]]
# Remove overlapping words for better comparison
topic52 <- c("農業 産業 整備 漁業 開発")
topic62 <- c("復興 連立 被災 災害 ひと")
topic63 <- c("政治 主義 自由 社会 民主")
topic20 <- c("税 消費 廃止 国民 日本")
topic58 <- c("企業 教育 中小 充実 図る")
seed_list <- list(topic52, topic62, topic63, topic20, topic58)
seed_list <- lapply(seed_list, function(x){strsplit(x, " ")[[1]]})# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=76)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list) 1 2 3 4 5 T_1
[1,] "整備 [✓]" "ひと [✓]" "政治 [✓]" "日本 [✓]" "中小 [✓]" "日本 [4]"
[2,] "振興" "子供" "国民 [4]" "党" "企業 [✓]" "新しい"
[3,] "道路" "日本 [4]" "主義 [✓]" "国民 [✓]" "図る [✓]" "作る"
[4,] "産業 [✓]" "作る" "改革" "消費 [✓]" "教育 [✓]" "改革"
[5,] "開発 [✓]" "働く" "社会 [✓]" "共産" "推進" "地方"
[6,] "道" "社会 [3]" "実現" "政治 [3]" "充実 [✓]" "作り"
[7,] "図る [5]" "国" "自由 [✓]" "税 [✓]" "対策" "国"
[8,] "農林" "大切" "信頼" "守る" "進める" "進める"
[9,] "交通" "心" "目指す" "増税" "福祉" "政治 [3]"
[10,] "推進" "教育 [5]" "民主 [✓]" "選挙" "社会 [3]" "国民 [4]"
[11,] "漁業 [✓]" "守る" "生活" "自民党" "改革" "世界"
[12,] "地域" "自分" "福祉" "民主 [3]" "確立" "国際"
[13,] "促進" "人間" "全力" "やめる" "安定" "す"
[14,] "農業 [✓]" "仕事" "守る" "進める" "振興" "活力"
[15,] "発展" "命" "確立" "企業 [5]" "制度" "分権"
T_2 T_3 T_4 T_5 T_6
[1,] "年金" "国際" "日本 [4]" "産業 [1]" "改革"
[2,] "円" "環境" "安全" "地域" "郵政"
[3,] "廃止 [4]" "平和" "国" "技術" "民営"
[4,] "兆" "世界" "安心" "日本 [4]" "郵便"
[5,] "改革" "社会 [3]" "教育 [5]" "作り" "民間"
[6,] "実現" "生活" "保障" "教育 [5]" "局"
[7,] "無駄" "地球" "年金" "社会 [3]" "政府"
[8,] "削減" "貢献" "外交" "経済" "小泉"
[9,] "政権" "政治 [3]" "問題" "情報" "官"
[10,] "保険" "国" "制度" "環境" "年金"
[11,] "増税" "改革" "守る" "新しい" "国民 [4]"
[12,] "一元化" "政策" "再生" "科学" "実現"
[13,] "金" "経済" "国民 [4]" "目指す" "国"
[14,] "サラリーマン" "推進" "拉致" "育成" "制度"
[15,] "郵政" "外交" "経済" "国際" "民"
T_7 T_8 T_9 T_10 T_11 T_12
[1,] "平和" "国民 [4]" "日本 [4]" "税 [4]" "問題" "整備 [1]"
[2,] "社会 [3]" "党" "教育 [5]" "消費 [4]" "必要" "建設"
[3,] "憲法" "政治 [3]" "国" "改革" "経済" "道路"
[4,] "人権" "日本 [4]" "心" "行政" "日本 [4]" "促進"
[5,] "守る" "政権" "世界" "政治 [3]" "課題" "早期"
[6,] "税 [4]" "円" "持つ" "税率" "政策" "市"
[7,] "目指す" "自公" "社会 [3]" "契約" "取り組む" "事業"
[8,] "消費 [4]" "税 [4]" "国家" "国民 [4]" "国" "国道"
[9,] "進める" "兆" "平和" "反対" "解決" "線"
[10,] "差別" "軍事" "子供" "地方" "地域" "実現"
[11,] "基本" "実現" "文化" "断行" "高齢" "駅"
[12,] "福祉" "憲法" "大切" "実現" "重要" "推進"
[13,] "制定" "主人公" "育てる" "増税" "将来" "号線"
[14,] "反対" "新しい" "伝統" "官僚" "我が国" "道"
[15,] "女性" "中心" "力" "円" "現在" "完成"
T_13 T_14 T_15 T_16 T_17 T_18
[1,] "日本 [4]" "地方" "党" "都市" "税 [4]" "市民"
[2,] "国民 [4]" "地域" "政治 [3]" "まち" "生活" "政治 [3]"
[3,] "世界" "分権" "日本 [4]" "線" "い" "民主 [3]"
[4,] "経済" "国" "共産" "交通" "素" "官僚"
[5,] "生活" "日本 [4]" "自民党" "東京" "晴" "主役"
[6,] "国家" "中央" "改革" "作り" "し" "党"
[7,] "国" "財源" "社会 [3]" "住宅" "住宅" "情報"
[8,] "政府" "経済" "国民 [4]" "実現" "消費 [4]" "公開"
[9,] "政党" "権限" "神" "整備 [1]" "円" "中心"
[10,] "政策" "生活" "発言" "道路" "家賃" "参加"
[11,] "ひと [2]" "制度" "憲法" "税 [4]" "実現" "行政"
[12,] "良い" "主権" "首相" "教育 [5]" "土地" "主導"
[13,] "アメリカ" "住民" "森" "推進" "資産" "未来"
[14,] "世界一" "進める" "消費 [4]" "建設" "減税" "活動"
[15,] "主義 [3]" "国民 [4]" "歩" "区" "非課税" "システム"
T_19 T_20 T_21 T_22 T_23 T_24
[1,] "政治 [3]" "県" "年金" "平和" "基地" "県"
[2,] "改革" "秋田" "円" "憲法" "沖縄" "青森"
[3,] "腐敗" "福井" "制度" "暮らし" "米" "圏"
[4,] "金" "山形" "医療" "守る" "平和" "北"
[5,] "権" "農業 [1]" "地域" "反対" "軍" "道"
[6,] "実現" "福島" "廃止 [4]" "社会 [3]" "主義 [3]" "茨城"
[7,] "選挙" "富山" "政権" "小泉" "自由 [3]" "首都"
[8,] "制度" "市" "月額" "自衛隊" "福祉" "栃木"
[9,] "防止" "産業 [1]" "手当" "戦争" "世界" "大分"
[10,] "国民 [4]" "県民" "子供" "命" "声" "農業 [1]"
[11,] "資金" "全国" "無駄" "ひと [2]" "安保" "実現"
[12,] "献金" "県内" "企業 [5]" "生活" "貢献" "東京"
[13,] "企業 [5]" "米" "交代" "雇用" "アジア" "東"
[14,] "制定" "岐阜" "生活" "アメリカ" "医療" "県民"
[15,] "禁止" "新幹線" "金" "保障" "条約" "自動車"
T_25 T_26 T_27 T_28 T_29 T_30
[1,] "円" "円" "税 [4]" "税 [4]" "改革" "軍事"
[2,] "減税" "増税" "消費 [4]" "日本 [4]" "行政" "費"
[3,] "税 [4]" "党" "廃止 [4]" "自由 [3]" "地方" "守る"
[4,] "大型" "税 [4]" "政治 [3]" "経済" "介護" "自民党"
[5,] "拡大" "自民党" "自民党" "教育 [5]" "制度" "教育 [5]"
[6,] "中曽根" "憲法" "国民 [4]" "国" "財政" "平和"
[7,] "不況" "民主 [3]" "自由 [3]" "国民 [4]" "国民 [4]" "医療"
[8,] "内需" "控除" "院" "社会 [3]" "規制" "企業 [5]"
[9,] "間接" "日本 [4]" "金" "一新" "社会 [3]" "老人"
[10,] "反対" "企業 [5]" "コメ" "改める" "税 [4]" "なくす"
[11,] "国民 [4]" "条" "権" "基礎" "緩和" "やめる"
[12,] "対策" "廃止 [4]" "リクルート" "革命" "分権" "民主 [3]"
[13,] "所得" "民営" "輸入" "国家" "推進" "実現"
[14,] "導入" "戦争" "腐敗" "所得" "福祉" "許す"
[15,] "中小 [5]" "郵政" "献金" "雇用" "議員" "削る"
T_31 T_32 T_33 T_34 T_35 T_36
[1,] "社会 [3]" "国民 [4]" "医療" "政権" "れる" "円"
[2,] "保障" "図る [5]" "制度" "政治 [3]" "と" "兆"
[3,] "政治 [3]" "安全" "年金" "自民党" "教育 [5]" "事業"
[4,] "暮らし" "社会 [3]" "介護" "党" "バランス" "ひと [2]"
[5,] "守る" "自給" "充実 [5]" "新しい" "調和" "予算"
[6,] "日本 [4]" "地域" "保育" "選挙" "環境" "公共"
[7,] "国民 [4]" "安定" "保険" "国民 [4]" "家庭" "税 [4]"
[8,] "予算" "つとめる" "社会 [3]" "交代" "問題" "国"
[9,] "ルール" "食糧" "支援" "改革" "体育" "年間"
[10,] "介護" "向上" "安心" "実現" "知育" "費"
[11,] "規制" "農業 [1]" "負担" "作る" "生" "財源"
[12,] "公共" "率" "子供" "支配" "消費 [4]" "財政"
[13,] "事業" "食料" "福祉" "社会 [3]" "青少年" "税金"
[14,] "雇用" "確保" "教育 [5]" "政策" "徳育" "借金"
[15,] "企業 [5]" "保全" "実現" "生活" "解決" "無駄"
T_37 T_38 T_39 T_40 T_41 T_42
[1,] "社会 [3]" "社会 [3]" "環境" "改革" "政治 [3]" "憲法"
[2,] "実現" "安心" "地球" "企業 [5]" "声" "税 [4]"
[3,] "環境" "子供" "自然" "党" "力" "消費 [4]"
[4,] "目指す" "作る" "社会 [3]" "政治 [3]" "守る" "党"
[5,] "女性" "日本 [4]" "作る" "自民党" "全力" "増税"
[6,] "男女" "未来" "守る" "国民 [4]" "国政" "暮らし"
[7,] "参画" "ひと [2]" "保全" "金" "国民 [4]" "日本 [4]"
[8,] "安心" "働く" "エネルギー" "献金" "暮らし" "改悪"
[9,] "確立" "実現" "ひと [2]" "権" "福祉" "平和"
[10,] "共同" "環境" "豊か" "日本 [4]" "国会" "アメリカ"
[11,] "福祉" "夢" "世界" "禁止" "がんばる" "守る"
[12,] "経済" "作り" "もの" "憲法" "実現" "社会 [3]"
[13,] "雇用" "暮らせる" "緑" "選挙" "庶民" "保障"
[14,] "改革" "希望" "破壊" "腐敗" "いかす" "企業 [5]"
[15,] "共生" "国" "水" "団体" "生活" "自民党"
T_43 T_44 T_45 T_46 T_47 T_48
[1,] "制度" "税 [4]" "企業 [5]" "政治 [3]" "党" "県"
[2,] "事業" "消費 [4]" "まち" "日本 [4]" "増税" "長崎"
[3,] "公共" "年金" "中小 [5]" "新しい" "共産" "岡山"
[4,] "企業 [5]" "負担" "地域" "時代" "税 [4]" "離島"
[5,] "政策" "所得" "元気" "力" "日本 [4]" "佐賀"
[6,] "導入" "の" "商店" "若い" "企業 [5]" "水産"
[7,] "税 [4]" "分" "作り" "世紀" "つらぬく" "市"
[8,] "実施" "ひと [2]" "活性" "変える" "反対" "町"
[9,] "機関" "財源" "雇用" "未来" "流れ" "県民"
[10,] "個人" "基礎" "支援" "行動" "新しい" "振興"
[11,] "必要" "引き上げる" "回復" "世代" "政治 [3]" "故郷"
[12,] "制定" "税制" "景気" "変わる" "財政" "農林"
[13,] "金" "国民 [4]" "経済" "社会 [3]" "足立" "力"
[14,] "規制" "費" "安心" "挑戦" "米" "若者"
[15,] "基本" "国庫" "再生" "持つ" "作る" "島"
T_49 T_50 T_51 T_52 T_53 T_54
[1,] "選挙" "農業 [1]" "ゼ" "アジア" "増税" "政治 [3]"
[2,] "区" "漁業 [1]" "ロ" "外交" "守る" "ひと [2]"
[3,] "党" "自給" "支援" "関係" "党" "国民 [4]"
[4,] "院" "率" "実現" "世界" "憲法" "政策"
[5,] "自民党" "農家" "削減" "平和" "反対" "選挙"
[6,] "民主 [3]" "食糧" "議員" "諸国" "庶民" "自分"
[7,] "代表" "農林" "子育て" "進める" "野党" "持つ"
[8,] "衆議" "農" "医療" "米" "確か" "議員"
[9,] "比例" "輸入" "充実 [5]" "日本 [4]" "自民党" "声"
[10,] "議員" "守る" "雇用" "地域" "日本 [4]" "問題"
[11,] "票" "食料" "公務員" "支援" "国民 [4]" "必要"
[12,] "候補" "所得" "成長" "改革" "改悪" "国政"
[13,] "国会" "制度" "環境" "友好" "民営" "投票"
[14,] "議席" "生産" "ひと [2]" "力" "共産" "責任"
[15,] "政党" "向上" "国会" "アメリカ" "郵政" "政党"
T_55 T_56 T_57 T_58 T_59 T_60
[1,] "道路" "不安" "世界" "政治 [3]" "平和" "景気"
[2,] "年金" "年金" "社会 [3]" "支援" "守る" "犯罪"
[3,] "政権" "ひと [2]" "日本 [4]" "申し上げる" "政治 [3]" "危機"
[4,] "ひと [2]" "介護" "自由 [3]" "心" "福祉" "対策"
[5,] "実現" "失業" "経済" "徳島" "憲法" "回復"
[6,] "廃止 [4]" "保険" "平和" "決意" "図る [5]" "少年"
[7,] "削減" "負担" "国際" "国政" "生活" "管理"
[8,] "高速" "医療" "時代" "選挙" "実現" "安全"
[9,] "金" "国民 [4]" "努力" "あたたかい" "軍縮" "凶悪"
[10,] "議員" "率" "我が国" "心から" "防衛" "日本 [4]"
[11,] "無料" "老後" "豊か" "郷土" "教育 [5]" "崩壊"
[12,] "事業" "安心" "世紀" "西" "費" "青少年"
[13,] "補助" "雇用" "安定" "改革" "目指す" "不況"
[14,] "民主 [3]" "制度" "国" "力強い" "暮らし" "増加"
[15,] "財源" "将来" "改革" "こたえる" "年金" "バブル"
T_61 T_62 T_63 T_64 T_65 T_66
[1,] "政権" "党" "景気" "地域" "大阪" "政治 [3]"
[2,] "税金" "共産" "回復" "安心" "作り" "改革"
[3,] "無駄" "民" "改革" "安全" "都市" "自民党"
[4,] "交代" "日本 [4]" "社会 [3]" "支援" "まち" "日本 [4]"
[5,] "変える" "国民 [4]" "対策" "作り" "文化" "選挙"
[6,] "政治 [3]" "政治 [3]" "全力" "対策" "推進" "新しい"
[7,] "官僚" "戦争" "教育 [5]" "推進" "国際" "政党"
[8,] "日本 [4]" "反対" "取り組む" "改革" "実現" "新党"
[9,] "年金" "自民党" "経済" "再生" "鹿児島" "政界"
[10,] "なくす" "円" "実現" "食" "交流" "党"
[11,] "民主 [3]" "主権" "高齢" "社会 [3]" "日本 [4]" "実現"
[12,] "国民 [4]" "社" "安心" "子育て" "市" "派"
[13,] "作る" "暮らし" "制度" "制度" "目指す" "地方"
[14,] "天下り" "在" "推進" "環境" "空港" "責任"
[15,] "党" "平和" "雇用" "医療" "神戸" "政権"
T_67 T_68 T_69 T_70 T_71 T_72
[1,] "長" "金" "支援" "教育 [5]" "国会" "和歌山"
[2,] "委員" "実現" "申し上げる" "子供" "議員" "名古屋"
[3,] "大臣" "年金" "選挙" "福祉" "法案" "空港"
[4,] "宮崎" "制度" "郷土" "学校" "院" "故郷"
[5,] "教育 [5]" "住宅" "努力" "個性" "委員" "経済"
[6,] "内閣" "支援" "院" "イジメ" "衆議" "力"
[7,] "自民党" "拡充" "衆議" "実現" "立法" "実現"
[8,] "政策" "特別" "当選" "心" "成立" "国際"
[9,] "国" "老人" "決意" "高齢" "問題" "情熱"
[10,] "党" "ホーム" "心から" "充実 [5]" "提出" "建設"
[11,] "会長" "奈良" "立候補" "値" "改正" "中央"
[12,] "政治 [3]" "養護" "発展" "偏差" "案" "中部"
[13,] "世紀" "費" "あたたかい" "制度" "質問" "燃える"
[14,] "選挙" "円" "心" "世紀" "法律" "造り"
[15,] "立つ" "増額" "議員" "家庭" "当選" "住む"
T_73 T_74 T_75 T_76
[1,] "医療" "経験" "改革" "作り"
[2,] "円" "いかす" "財政" "豊か"
[3,] "高齢" "国政" "日本 [4]" "社会 [3]"
[4,] "企業 [5]" "地元" "経済" "政治 [3]"
[5,] "制度" "働く" "構造" "世紀"
[6,] "保障" "政策" "行政" "地域"
[7,] "派遣" "議員" "社会 [3]" "心"
[8,] "雇用" "国際" "政府" "福祉"
[9,] "労働" "父" "民間" "故郷"
[10,] "無料" "県" "再建" "目指す"
[11,] "後期" "努力" "金融" "郷土"
[12,] "費" "若い" "国" "活力"
[13,] "廃止 [4]" "国会" "進める" "時代"
[14,] "最低" "行政" "目指す" "生活"
[15,] "金" "先生" "官" "実現"
[[1]]
[[2]]
[[3]]
get_lda_result(doc_folder, seed_list, iter_num, k=80, showtop=T) 1 2 3 4 5 6 7 8 9 10
1 地域 対策 社会 地方 社会 行政 環境 子供 安全 年金
2 再生 図る 保障 分権 女性 改革 地球 安心 対策 制度
3 経済 振興 日本 地域 環境 規制 自然 社会 安心 円
4 活性 改善 暮らし 国 働く 緩和 保全 未来 保障 医療
5 元気 つとめる 予算 中央 男女 法人 エネルギー 元気 強化 地域
6 産業 充実 自民党 権限 参加 省庁 社会 希望 食 廃止
7 支援 推進 憲法 自治 実現 地方 水 作る 再生 手当
8 構築 企業 守る 財源 高齢 介護 資源 夢 犯罪 金
9 支える 福祉 政治 確立 共同 断行 美しい 育てる 治安 無駄
10 雇用 中小 ルール 制度 参画 削減 循環 暮らせる 災害 月額
11 創出 開発 規制 主権 育児 責任 リサイクル 持てる 制度 子供
12 自立 促進 国民 自立 労働 大胆 保護 老後 拉致 最低
13 観光 努力 事業 住民 福祉 撤廃 優しい 日本 外交 主権
14 社会 育成 共産党 市町村 子供 行革 破壊 若者 教育 補償
15 環境 事業 介護 集権 家庭 官僚 緑 取り戻す 体制 創設
11 12 13 14 15 16 17 18 19 20
1 政治 財政 基地 日本 新しい 年金 日本 都市 文化 企業
2 腐敗 経済 米 国 時代 負担 国民 線 国際 中小
3 改革 行政 沖縄 国家 世紀 制度 共産党 市 都市 支援
4 実現 社会 軍 教育 ひらく 保険 守る 実現 作り 雇用
5 制度 改革 目指す 基本 目指す ひと 民主 整備 推進 制度
6 防止 再建 企業 経済 社会 保障 税 駅 スポーツ 事業
7 金権 政府 医療 持つ 向ける 医療 声 建設 交流 金融
8 選挙 構造 県民 日本人 未来 費 消費 推進 大阪 経営
9 制定 高齢 平和 社会 求める 所得 政治 促進 振興 零細
10 資金 成長 守る 国民 挑戦 基礎 公約 交通 育成 経済
11 確立 効率 安保 歴史 迎える 軽減 反対 早期 空港 融資
12 生活 赤字 福祉 家族 対応 引き上げる 政党 東京 いかす 商店
13 献金 世代 進める 責任 変革 介護 やめる 解消 伝統 公共
14 事件 将来 充実 良い 創る 国庫 つらぬく 道路 産業 保証
15 強化 国家 利用 誇り 行動 給付 目指す 町 圏 予算
21 22 23 24 25 26 27 28 29
1 心 自民党 税 政治 力 県 政治 技術 守る
2 社会 改革 消費 政党 若い 農業 信頼 産業 暮らし
3 豊か 政治 所得 体質 いかす 県民 清潔 情報 命
4 人間 政権 税制 わかる 経験 発展 豊か 育成 国民
5 教育 新しい 税率 保守 世代 産業 信条 科学 企業
6 大切 選挙 福祉 良い 行動 全国 持つ 開発 平和
7 福祉 党 国民 不信 時代 北 誠実 教育 約束
8 世紀 政党 見直し 政界 情熱 日本海 立つ 研究 医療
9 育てる 支配 反対 正す 国政 図る 努力 国際 がんばる
10 思いやり 交代 引き上げ 感 世紀 青森 姿勢 推進 許す
11 文化 政界 是正 かかる 持つ 地元 立場 創造 子供
12 自然 連立 負担 自身 秋田 福井 共に 環境 大切
13 愛 派 不公平 利益 福祉 山形 原点 人材 中小
14 生きる 内閣 住民 岡山 地元 圏 汗 通信 働く
15 個性 勢力 品 自分 実行 福島 道 整備 優先
30 31 32 33 34 35 36 37
1 政権 年金 故郷 減税 医療 作る ひと 図る
2 税金 円 豊か 円 制度 日本 自分 つとめる
3 交代 廃止 活力 拡大 介護 進める 持つ 充実
4 無駄 実現 作り 不況 充実 国民 育つ 進める
5 変える 無駄 郷土 大型 福祉 新しい 感じる 振興
6 官僚 兆 世紀 内需 年金 国 子供 教育
7 民主党 金 溢れる 対策 保険 守る 仕事 安定
8 なくす 削減 発展 大幅 高齢 約束 父 実現
9 天下り 改革 夢 間接 支援 力 先生 目指す
10 使い 制度 心 中曽根 障害 抜本 知る 確立
11 使う 子供 住む 反対 サービス 合わせる 生まれる 産業
12 癒着 一元化 創造 所得 体制 柱 良い 福祉
13 しがらみ ひと 明日 税 施設 強める 京都 育成
14 必要 サラリーマン 文化 導入 保障 合意 心 地域
15 変わる 地域 魅力 平和 健康 改める 働く 活性
38 39 40 41 42 43 44 45 46
1 ひと 目指す 必要 整備 議員 農林 政治 推進 増税
2 働く 実現 問題 交通 国会 漁業 日本 対策 憲法
3 作る 社会 現在 生活 法案 水産 変える 整備 自民党
4 大切 高齢 政策 地域 成立 振興 変わる 社会 反対
5 国 福祉 状況 網 立法 産業 力 確立 守る
6 年寄り 安心 進む 道路 改正 地場 新しい 強化 庶民
7 弱い 生活 経済 基盤 衆議院 観光 流れ 確保 改悪
8 力 暮らせる 重要 豊か 年間 工業 大きい 支援 民営
9 がんばる 公正 最大 充実 首相 北海道 国民 施策 野党
10 必要 活力 議論 環境 活動 農 立つ 総合 郵政
11 立場 公平 主張 発展 法律 地域 動く 促進 確か
12 生きる 充実 将来 福祉 提案 福祉 約束 安定 日本
13 まじめ 教育 人口 取り組む 案 林業 怒り 積極 戦争
14 大事 図る 得る 体系 政府 県 戦う 体制 共産党
15 支える 信頼 我が国 作り 定数 宮崎 チャンス 図る 条
47 48 49 50 51 52 53 54 55 56
1 住宅 責任 作り 共産党 税 企業 我が国 問題 改革 円
2 税 国 まち 自民党 消費 自民党 努力 取り組む 推進 国民
3 生活 持つ 国 費 廃止 改革 国際 解決 実現 政権
4 減税 未来 進める 軍事 自民党 国民 社会 課題 断行 医療
5 土地 力 環境 反対 政治 献金 経済 環境 教育 費
6 資産 日本 教育 円 自由 共産党 安定 重要 構造 兆
7 実現 強い 地域 平和 輸入 日本 発展 全力 行財政 自公
8 老人 創る 安心 暮らし 国民 党 世紀 教育 制度 税
9 相続 必要 商店 中曽根 コメ 金権 世界 高齢 抜本 派遣
10 パート 感 ひと 戦争 阻止 政治 時代 改革 税制 高齢
11 軽減 信頼 活動 削る 企業 禁止 対応 立つ 実行 保障
12 非課税 勇気 強い やめる 献金 選挙 課題 立場 真 軍事
13 実施 将来 住む 教育 団体 団体 繁栄 社会 行政 主人公
14 固定 果たす 目指す 老人 禁止 憲法 重要 戦後 見直し 労働
15 家賃 良い 安全 イジメ 国会 区 貿易 抱える 進める 財源
57 58 59 60 61 62 63 64 65
1 政策 円 憲法 教育 景気 全力 選挙 世界 道路
2 生活 兆 消費 子供 回復 尽くす 区 平和 年金
3 経済 事業 税 学校 対策 力 票 国際 金
4 実現 公共 増税 社会 経済 実現 代表 外交 補助
5 社会 ひと アメリカ 福祉 社会 あげる ひと 貢献 削減
6 基本 予算 改悪 家庭 安定 がんばる 候補 アジア 廃止
7 教育 年間 暮らし 個性 取り組む 約束 比例 日本 議員
8 重点 財源 自民党 制度 高齢 福祉 政党 関係 ひと
9 確立 国 平和 確立 雇用 守る 自民党 協力 高速
10 優先 費 保障 イジメ 世紀 投球 政策 国連 事業
11 環境 無駄 反対 心 不況 合わせる 是非 積極 公共
12 置く 使う いい 徳島 実行 医療 投票 国 財源
13 中心 税金 社会 大切 信頼 求める 選択 信頼 無料
14 転換 負担 民主党 重視 危機 入れる 有権者 諸国 基礎
15 高齢 借金 共産党 のばす 本格 中小 選ぶ 進める 民主党
66 67 68 69 70 71 72 73 74
1 消費 市民 支援 政治 平和 国民 道 農業 不安
2 税 社会 子育て 声 憲法 政治 整備 自給 年金
3 政治 情報 保育 国政 人権 生活 早期 率 安心
4 廃止 参加 医療 反映 守る 手 道路 食糧 雇用
5 税制 公開 雇用 庶民 福祉 取り戻す 自動車 食料 社会
6 自民党 活動 拡充 国会 反対 実現 建設 向上 医療
7 国民 システム 充実 いかす 労働 本位 促進 安全 介護
8 選挙 官僚 介護 約束 基本 求める 完成 農家 将来
9 リクルート 主役 金 がんばる 差別 絶対 空港 安定 制度
10 不公平 共生 児童 届ける 生活 不在 高速 生産 保障
11 党 中心 安心 力 戦争 利益 新幹線 輸入 解消
12 公正 主導 対策 福祉 制定 優先 事業 確立 老後
13 政権 行政 ゼロ 聞く 許す 日本 国道 確保 生活
14 公平 民主党 制度 決意 権利 戻す 地域 経営 失業
15 社会党 自立 解消 取り戻す 尊重 支える 南 守る 経済
75 76 77 78 79 80
1 日本 支援 日本 主義 改革 委員
2 世界 申し上げる 増税 自由 民営 大臣
3 経済 郷土 共産党 民主 郵政 長
4 国 決意 消費 社会 小泉 平成
5 力 あたたかい 税 政治 民間 政策
6 大国 心 反対 国民 政府 内閣
7 道 心から 党 平和 官 実績
8 目指す 発展 国民 世界 郵便 国会
9 支える 国政 企業 体制 民 予算
10 世界一 立候補 つらぬく 経済 構造 議員
11 将来 選挙 流れ 日本 局 会長
12 先進 感謝 財政 確立 国 衆議院
13 進む 当選 選挙 資本 資金 当選
14 誇れる 賜る 主人公 守る 法人 総理
15 改革 力強い 政治 国家 公務員 党
[[1]]
[[2]]
# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=96)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list) 1 2 3 4 5 T_1
[1,] "整備 [✓]" "ひと [✓]" "政治 [✓]" "政治 [3]" "企業 [✓]" "政治 [3]"
[2,] "道路" "政治 [3]" "国民 [4]" "税 [✓]" "中小 [✓]" "腐敗"
[3,] "産業 [✓]" "守る" "改革" "消費 [✓]" "教育 [✓]" "改革"
[4,] "地域" "働く" "実現" "国民 [✓]" "図る [✓]" "実現"
[5,] "道" "作る" "目指す" "日本 [✓]" "対策" "政権"
[6,] "農業 [✓]" "子供" "生活" "廃止 [✓]" "充実 [✓]" "金"
[7,] "振興" "大切" "民主 [✓]" "党" "制度" "自民党"
[8,] "促進" "声" "信頼" "守る" "進める" "権"
[9,] "図る [5]" "命" "声" "作る" "福祉" "新しい"
[10,] "交通" "生きる" "確立" "自民党" "支援" "選挙"
[11,] "早期" "生活" "新しい" "力" "雇用" "党"
[12,] "高速" "人間" "社会 [✓]" "選挙" "政策" "生活"
[13,] "推進" "立場" "福祉" "民主 [3]" "景気" "支配"
[14,] "網" "年寄り" "力" "全力" "まち" "防止"
[15,] "発展" "家族" "守る" "反対" "経済" "作る"
T_2 T_3 T_4 T_5 T_6 T_7
[1,] "改革" "道路" "医療" "税 [4]" "日本 [4]" "改革"
[2,] "景気" "年金" "雇用" "消費 [4]" "地域" "郵政"
[3,] "社会 [3]" "高速" "支援" "税制" "安心" "民営"
[4,] "回復" "金" "対策" "廃止 [4]" "社会 [3]" "小泉"
[5,] "財政" "ひと [2]" "地域" "不公平" "子供" "構造"
[6,] "行政" "実現" "介護" "社会 [3]" "元気" "政府"
[7,] "経済" "無料" "子育て" "福祉" "未来" "官"
[8,] "実現" "補助" "金" "見直し" "作る" "民間"
[9,] "推進" "削減" "安心" "リクルート" "作り" "制度"
[10,] "構造" "廃止 [4]" "充実 [5]" "是正" "経済" "年金"
[11,] "高齢" "政権" "推進" "公正" "暮らせる" "民"
[12,] "対策" "議員" "守る" "公平" "実現" "日本 [4]"
[13,] "規制" "公共" "実現" "軍縮" "国" "自民党"
[14,] "制度" "事業" "年金" "年金" "環境" "推進"
[15,] "実行" "財源" "制度" "時代" "まち" "社会 [3]"
T_8 T_9 T_10 T_11 T_12 T_13
[1,] "基地" "政治 [3]" "党" "地方" "国" "主義 [3]"
[2,] "増税" "新しい" "日本 [4]" "分権" "社会 [3]" "自由 [3]"
[3,] "企業 [5]" "日本 [4]" "共産" "改革" "日本 [4]" "社会 [3]"
[4,] "目指す" "改革" "増税" "地域" "国民 [4]" "民主 [3]"
[5,] "民主 [3]" "地方" "自由 [3]" "国" "責任" "世界"
[6,] "主義 [3]" "変える" "企業 [5]" "中央" "政策" "経済"
[7,] "献金" "徳島" "やめる" "行政" "国家" "体制"
[8,] "癒着" "時代" "民主 [3]" "制度" "地域" "日本 [4]"
[9,] "進める" "新党" "つらぬく" "権限" "基本" "米"
[10,] "自民党" "変革" "平和" "進める" "保障" "東欧"
[11,] "優先" "分権" "守る" "財源" "持つ" "政党"
[12,] "ひらく" "行政" "目指す" "実現" "可能" "諸国"
[13,] "充実 [5]" "新生" "進める" "住民" "改革" "資本"
[14,] "移転" "作る" "主人公" "経済" "経済" "選択"
[15,] "医療" "古い" "主義 [3]" "確立" "必要" "共産"
T_14 T_15 T_16 T_17 T_18 T_19
[1,] "増税" "社会 [3]" "委員" "政治 [3]" "環境" "党"
[2,] "アメリカ" "う" "長" "守る" "地球" "平和"
[3,] "暮らし" "実現" "大臣" "保障" "自然" "年金"
[4,] "憲法" "報" "予算" "予算" "保全" "の"
[5,] "社会 [3]" "汗" "平成" "暮らし" "エネルギー" "消費 [4]"
[6,] "政治 [3]" "目指す" "対策" "社会 [3]" "社会 [3]" "献金"
[7,] "税 [4]" "働く" "会長" "規制" "問題" "ルール"
[8,] "保障" "夢" "国" "保険" "もの" "日本 [4]"
[9,] "改悪" "まじめ" "実績" "介護" "教育 [5]" "国"
[10,] "平和" "ひと [2]" "内閣" "子供" "廃棄" "民主 [3]"
[11,] "企業 [5]" "努力" "党" "中小 [5]" "循環" "政党"
[12,] "いい" "持てる" "政策" "企業 [5]" "資源" "負担"
[13,] "応援" "希望" "国会" "ルール" "開発 [1]" "税 [4]"
[14,] "守る" "安心" "当選" "雇用" "リサイクル" "いい"
[15,] "なり" "山梨" "調査" "大型" "対策" "企業 [5]"
T_20 T_21 T_22 T_23 T_24 T_25
[1,] "社会 [3]" "日本 [4]" "い" "政権" "削減" "市民"
[2,] "事業" "国民 [4]" "素" "党" "議員" "政治 [3]"
[3,] "日本 [4]" "社会 [3]" "し" "民主 [3]" "国会" "官僚"
[4,] "万博" "党" "晴" "交代" "無駄" "行政"
[5,] "党" "自民党" "文化" "自民党" "天下り" "民主 [3]"
[6,] "景気" "共産" "生活" "政策" "法人" "主役"
[7,] "作る" "国" "豊か" "政治 [3]" "行政" "党"
[8,] "自民党" "改革" "清" "国民 [4]" "官僚" "情報"
[9,] "力" "暮らし" "長崎" "日本 [4]" "公務員" "中心"
[10,] "憲法" "憲法" "高齢" "政党" "改革" "未来"
[11,] "首相" "教育 [5]" "圏" "実現" "定数" "公開"
[12,] "県民" "新しい" "自然" "選挙" "税金" "改革"
[13,] "政府" "平和" "充実 [5]" "新しい" "社会 [3]" "システム"
[14,] "共産" "事業" "伝統" "変える" "禁止" "主導"
[15,] "歩" "サービス" "手" "選択" "特殊" "実現"
T_26 T_27 T_28 T_29 T_30 T_31
[1,] "国政" "技術" "負担" "円" "県" "日本 [4]"
[2,] "問題" "日本 [4]" "年金" "政権" "農林" "問題"
[3,] "市民" "産業 [1]" "制度" "医療" "県民" "経済"
[4,] "市" "作り" "税 [4]" "費" "青森" "社会 [3]"
[5,] "国会" "力" "所得" "兆" "産業 [1]" "課題"
[6,] "横浜" "科学" "保険" "自公" "漁業 [1]" "必要"
[7,] "声" "世界" "費" "企業 [5]" "奈良" "世界"
[8,] "千葉" "教育 [5]" "医療" "高齢" "振興" "国"
[9,] "実績" "経済" "保障" "党" "北" "政策"
[10,] "追及" "情報" "ひと [2]" "憲法" "佐賀" "取り組む"
[11,] "議員" "環境" "国民 [4]" "制度" "地場" "国際"
[12,] "力" "地域" "基礎" "共産" "工業" "我が国"
[13,] "県" "育成" "軽減" "保障" "全国" "世紀"
[14,] "政府" "新しい" "分" "派遣" "商" "解決"
[15,] "水" "目指す" "引き上げる" "雇用" "中小 [5]" "求める"
T_32 T_33 T_34 T_35 T_36 T_37
[1,] "政策" "党" "政治 [3]" "支援" "平和" "院"
[2,] "生活" "増税" "持つ" "申し上げる" "憲法" "衆議"
[3,] "日本 [4]" "共産" "力" "政治 [3]" "守る" "議員"
[4,] "重点" "政治 [3]" "問題" "選挙" "社会 [3]" "選挙"
[5,] "対策" "国民 [4]" "若い" "心" "福祉" "国会"
[6,] "景気" "中心" "未来" "あたたかい" "反対" "参議"
[7,] "高齢" "変える" "勇気" "心から" "人権" "衆"
[8,] "福祉" "ひと [2]" "国政" "決意" "目指す" "自民党"
[9,] "都市" "自民党" "行動" "福祉" "戦争" "区"
[10,] "入れる" "税 [4]" "情熱" "全力" "生活" "法案"
[11,] "東京" "目指す" "時代" "尽くす" "暮らし" "定数"
[12,] "整備 [1]" "力" "政策" "実現" "差別" "委員"
[13,] "施設" "政権" "国" "院" "教育 [5]" "力"
[14,] "的" "企業 [5]" "決意" "国政" "労働" "選"
[15,] "回復" "主人公" "挑戦" "賜る" "実現" "当選"
T_38 T_39 T_40 T_41 T_42 T_43 T_44
[1,] "議員" "地域" "京都" "推進" "県" "改革" "人口"
[2,] "国会" "農林" "庶民" "国際" "農業 [1]" "政治 [3]" "必要"
[3,] "法案" "再生" "香川" "改革" "首都" "自民党" "地域"
[4,] "立法" "安心" "四国" "政策" "山形" "党" "熊本"
[5,] "成立" "地方" "発展" "環境" "圏" "選挙" "良い"
[6,] "活動" "制度" "女性" "制度" "福島" "国民 [4]" "高齢"
[7,] "法律" "水産" "安心" "確立" "地方" "政権" "問題"
[8,] "提出" "医療" "支援" "国" "茨城" "政党" "減少"
[9,] "改正" "安全" "文化" "活動" "米" "責任" "成長"
[10,] "政策" "雇用" "伝統" "強化" "栃木" "内閣" "増加"
[11,] "提案" "社会 [3]" "南部" "貢献" "東京" "派" "高い"
[12,] "案" "支援" "絶対" "体制" "国民 [4]" "野党" "維持"
[13,] "年間" "実現" "声" "平和" "道" "政界" "現状"
[14,] "企業 [5]" "保障" "築く" "連" "農政" "政策" "増える"
[15,] "ひと [2]" "守る" "市" "制定" "移転" "総理" "県"
T_45 T_46 T_47 T_48 T_49 T_50
[1,] "女性" "アジア" "改革" "費" "安全" "教育 [5]"
[2,] "いかす" "外交" "政治 [3]" "軍事" "日本 [4]" "子供"
[3,] "経験" "平和" "企業 [5]" "自民党" "問題" "心"
[4,] "働く" "世界" "金" "政治 [3]" "安心" "日本 [4]"
[5,] "作る" "関係" "献金" "暮らし" "回復" "社会 [3]"
[6,] "国政" "国際" "権" "中曽根" "年金" "大切"
[7,] "社会 [3]" "諸国" "自民党" "円" "対策" "国"
[8,] "力" "米" "禁止" "反対" "教育 [5]" "育てる"
[9,] "教育 [5]" "アメリカ" "団体" "削る" "犯罪" "学校"
[10,] "年寄り" "国" "国民 [4]" "教育 [5]" "拉致" "家庭"
[11,] "子供" "友好" "腐敗" "国会" "治安" "持つ"
[12,] "実現" "保障" "憲法" "老人" "再生" "世紀"
[13,] "国際" "信頼" "区" "政府" "景気" "作り"
[14,] "福祉" "安全" "選挙" "なくす" "守る" "豊か"
[15,] "声" "協力" "真" "核兵器" "経済" "未来"
T_51 T_52 T_53 T_54 T_55 T_56
[1,] "税 [4]" "党" "円" "農業 [1]" "党" "党"
[2,] "消費 [4]" "日本 [4]" "増税" "自給" "共産" "消費 [4]"
[3,] "改革" "共産" "党" "食糧" "日本 [4]" "税 [4]"
[4,] "行政" "国民 [4]" "税 [4]" "率" "国民 [4]" "憲法"
[5,] "税率" "税 [4]" "憲法" "漁業 [1]" "平和" "日本 [4]"
[6,] "介護" "増税" "自民党" "輸入" "自民党" "増税"
[7,] "契約" "消費 [4]" "日本 [4]" "食料" "守る" "民主 [3]"
[8,] "地方" "反対" "民主 [3]" "向上" "民" "自民党"
[9,] "規制" "米" "控除" "制度" "円" "守る"
[10,] "増税" "政治 [3]" "戦争" "生産" "悪政" "共産"
[11,] "up" "選挙" "民営" "実現" "企業 [5]" "改悪"
[12,] "法人" "つらぬく" "所得" "自由 [3]" "反対" "財源"
[13,] "国" "新しい" "ひと [2]" "農" "主義 [3]" "条"
[14,] "行革" "企業 [5]" "銀行" "農家" "社" "反対"
[15,] "減税" "流れ" "条" "守る" "主権" "暮らし"
T_57 T_58 T_59 T_60 T_61 T_62
[1,] "民営" "不安" "年金" "日本 [4]" "被爆" "政治 [3]"
[2,] "郵政" "年金" "円" "国民 [4]" "平和" "必要"
[3,] "郵便" "介護" "制度" "共産" "長崎" "政策"
[4,] "改革" "安心" "医療" "党" "広島" "自分"
[5,] "局" "雇用" "地域" "政治 [3]" "核" "ひと [2]"
[6,] "国民 [4]" "医療" "企業 [5]" "公約" "世界" "問題"
[7,] "事業" "景気" "無駄" "選挙" "廃絶" "国民 [4]"
[8,] "民間" "社会 [3]" "月額" "税 [4]" "援護" "良い"
[9,] "資金" "制度" "手当" "目指す" "核兵器" "生活"
[10,] "公社" "回復" "生活" "増税" "戦争" "年間"
[11,] "サービス" "保険" "政権" "政党" "制定" "出る"
[12,] "郵貯" "作る" "廃止 [4]" "主人公" "ひと [2]" "持つ"
[13,] "法人" "将来" "子供" "守る" "軍縮" "東京"
[14,] "地方" "解消" "交代" "声" "米" "仕事"
[15,] "保険" "老後" "主権" "ノー" "非核" "取る"
T_63 T_64 T_65 T_66 T_67 T_68
[1,] "労働" "大阪" "ロ" "農林" "自民党" "全力"
[2,] "実現" "福祉" "ゼ" "水産" "消費 [4]" "問題"
[3,] "守る" "関西" "実現" "県" "自由 [3]" "取り組む"
[4,] "医療" "政府" "支援" "宮崎" "コメ" "尽くす"
[5,] "政治 [3]" "医療" "児童" "企業 [5]" "輸入" "秋田"
[6,] "ひと [2]" "実践" "保育" "安定" "税 [4]" "経験"
[7,] "国" "是正" "導入" "岩手" "企業 [5]" "力"
[8,] "国民 [4]" "空港" "子育て" "地方" "献金" "いかす"
[9,] "なくす" "全力" "待機" "漁業 [1]" "金" "解決"
[10,] "学級" "自由 [3]" "作戦" "国土" "権" "県"
[11,] "老人" "首相" "再生" "国" "阻止" "社会 [3]"
[12,] "費" "推進" "年間" "つとめる" "院" "岡山"
[13,] "時間" "開発 [1]" "手当" "中小 [5]" "禁止" "環境"
[14,] "パート" "景気" "料金" "確保" "主人公" "高齢"
[15,] "やめる" "確保" "時間" "振興" "独裁" "国政"
T_69 T_70 T_71 T_72 T_73 T_74
[1,] "年金" "増税" "国民 [4]" "円" "教育 [5]" "社会 [3]"
[2,] "円" "党" "党" "兆" "政治 [3]" "推進"
[3,] "金" "守る" "民主 [3]" "ひと [2]" "福祉" "豊か"
[4,] "廃止 [4]" "反対" "中心" "国" "人間" "図る [5]"
[5,] "兆" "憲法" "実現" "借金" "確立" "作り"
[6,] "制度" "庶民" "政治 [3]" "財政" "政策" "実現"
[7,] "創設" "改悪" "目指す" "事業" "値" "改革"
[8,] "子供" "自民党" "日本 [4]" "年間" "日本 [4]" "生活"
[9,] "保険" "野党" "防波堤" "国民 [4]" "偏差" "つとめる"
[10,] "支給" "確か" "絶対" "費" "心" "世紀"
[11,] "保障" "民営" "なくす" "地方" "個性" "目指す"
[12,] "月" "共産" "軍事" "企業 [5]" "世界" "教育 [5]"
[13,] "補助" "郵政" "野党" "税金" "愛" "充実 [5]"
[14,] "特別" "日本 [4]" "同盟" "公共" "基本" "整備 [1]"
[15,] "一元化" "国民 [4]" "主人公" "赤字" "実現" "福祉"
T_75 T_76 T_77 T_78 T_79 T_80
[1,] "税金" "れる" "円" "日本 [4]" "税 [4]" "医療"
[2,] "無駄" "と" "対策" "守る" "住宅" "制度"
[3,] "変える" "バランス" "事業" "主義 [3]" "生活" "介護"
[4,] "日本 [4]" "作る" "拡大" "鹿児島" "減税" "充実 [5]"
[5,] "年金" "調和" "公共" "共産" "消費 [4]" "支援"
[6,] "政治 [3]" "教育 [5]" "景気" "国民 [4]" "円" "保育"
[7,] "官僚" "経済" "経済" "民主 [3]" "資産" "年金"
[8,] "政権" "問題" "内需" "党" "実現" "安心"
[9,] "作る" "新潟" "不況" "教育 [5]" "相続" "女性"
[10,] "国民 [4]" "時代" "減税" "政党" "土地" "子育て"
[11,] "なくす" "県" "予算" "福祉" "家賃" "保険"
[12,] "交代" "貿易" "実施" "規制" "固定" "育児"
[13,] "安心" "解決" "企業 [5]" "増税" "非課税" "福祉"
[14,] "公共" "個性" "緊急" "企業 [5]" "税制" "子供"
[15,] "癒着" "作り" "中小 [5]" "声" "廃止 [4]" "拡充"
T_81 T_82 T_83 T_84 T_85 T_86
[1,] "都市" "選挙" "対策" "日本 [4]" "福井" "作り"
[2,] "市" "区" "安全" "世界" "静岡" "まち"
[3,] "町" "比例" "支援" "平和" "東" "進める"
[4,] "国際" "票" "推進" "社会 [3]" "中部" "ひと [2]"
[5,] "地域" "代表" "災害 [2]" "環境" "県" "環境"
[6,] "区" "自民党" "作り" "国際" "河" "豊か"
[7,] "文化" "ひと [2]" "食" "経済" "空港" "住む"
[8,] "構想" "政党" "防災" "地球" "西" "心"
[9,] "実現" "党" "強化" "貢献" "岐阜" "大切"
[10,] "建設" "候補" "安心" "作る" "国際" "自然"
[11,] "空港" "制度" "確保" "国" "東海" "安心"
[12,] "北九州" "国会" "地震" "政治 [3]" "愛知" "暮らし"
[13,] "センター" "投票" "地域" "生活" "産業 [1]" "都市"
[14,] "拠点" "有権者" "強い" "目指す" "名古屋" "生活"
[15,] "活性" "改革" "神戸" "守る" "郷土" "緑"
T_87 T_88 T_89 T_90 T_91
[1,] "円" "社会 [3]" "円" "基地" "線"
[2,] "減税" "環境" "年金" "沖縄" "整備 [1]"
[3,] "平和" "目指す" "改革" "米" "道路"
[4,] "税 [4]" "実現" "兆" "軍" "都市"
[5,] "大型" "女性" "実現" "県民" "実現"
[6,] "中曽根" "男女" "廃止 [4]" "振興" "駅"
[7,] "反対" "福祉" "無駄" "縮小" "建設"
[8,] "間接" "参加" "増税" "返還" "促進"
[9,] "教育 [5]" "確立" "日本 [4]" "撤去" "交通"
[10,] "拡大" "制度" "削減" "実現" "早期"
[11,] "国民 [4]" "参画" "政権" "産業 [1]" "推進"
[12,] "福祉" "共同" "サラリーマン" "離島" "号線"
[13,] "内需" "情報" "地域" "建設" "まち"
[14,] "不況" "分権" "交代" "利用" "解消"
[15,] "守る" "進める" "社会 [3]" "平和" "地下鉄"
T_92 T_93 T_94 T_95 T_96
[1,] "税 [4]" "郷土" "故郷" "振興" "政治 [3]"
[2,] "自由 [3]" "政治 [3]" "政治 [3]" "推進" "新しい"
[3,] "一新" "努力" "豊か" "つとめる" "時代"
[4,] "日本 [4]" "支援" "世紀" "充実 [5]" "若い"
[5,] "教育 [5]" "発展" "時代" "改善" "日本 [4]"
[6,] "基礎" "申し上げる" "目指す" "恩給" "力"
[7,] "改める" "我が国" "心" "問題" "世紀"
[8,] "新しい" "全力" "活力" "福祉" "世代"
[9,] "国" "選挙" "郷土" "農林" "行動"
[10,] "所得" "決意" "新しい" "対策" "歳"
[11,] "義務" "尽くす" "社会 [3]" "企業 [5]" "世界"
[12,] "国民 [4]" "力" "全力" "母子" "変える"
[13,] "革命" "心" "実現" "建設" "求める"
[14,] "経済" "日本 [4]" "力" "促進" "交代"
[15,] "仕組み" "あたたかい" "ひと [2]" "向上" "情熱"
[[1]]
[[2]]
[[3]]
get_lda_result(doc_folder, seed_list, iter_num, k=100, showtop=T) 1 2 3 4 5 6 7 8 9
1 県 ひと 制度 作る 目指す 環境 企業 世界 政権
2 農業 心 介護 進める 実現 地球 中小 平和 交代
3 県民 大切 医療 日本 社会 自然 金融 国際 民主党
4 全国 社会 年金 国民 高齢 保全 零細 外交 実現
5 北 人間 保険 新しい 公正 世界 まち 貢献 自民党
6 宮崎 教育 保障 社会 確立 水 商店 アジア 変える
7 青森 生きる 安心 改革 安心 緑 活性 日本 日本
8 豊か 育てる 充実 力 福井 豊か 経営 関係 国民
9 長崎 共に 確立 改める 暮らせる 人間 融資 積極 政策
10 県内 支える 確保 守る 教育 美しい 雇用 国連 選択
11 山形 基本 導入 強める 環境 破壊 支援 安全 連立
12 福島 思いやり 高齢 世界 公平 大切 保証 諸国 作る
13 努力 精神 公的 増やす ひらく 生活 経済 協力 マニフェスト
14 発展 家族 見直し ひろげる 制度 守る 政府 信頼 変わる
15 誘致 幸せ 家族 国 正義 保護 予算 国 可能
10 11 12 13 14 15 16 17 18 19
1 社会 推進 増税 税 政治 図る 必要 政治 技術 政治
2 雇用 整備 反対 消費 変える つとめる 問題 政党 産業 国民
3 産業 環境 守る 改革 日本 安定 現在 選挙 科学 生活
4 支援 確立 憲法 行政 変わる 確立 政策 保守 情報 手
5 環境 施策 庶民 規制 力 充実 状況 政界 開発 取り戻す
6 構築 社会 野党 税率 大きい 進める 将来 政策 育成 利益
7 創出 基盤 自民党 介護 動く 目指す 重要 ひと 国際 本位
8 創る 地域 改悪 法人 流れ 振興 我が国 感 研究 不信
9 安心 促進 確か 地方 票 確保 進む 有権者 人材 不在
10 教育 育成 民営 削減 約束 教育 人口 資金 力 合意
11 育成 総合 国民 料金 怒り 向上 経済 良い 教育 わかる
12 創造 積極 郵政 撤廃 正す 強化 課題 感じる 通信 本当に
13 再生 体制 共産党 up 必ず 活性 主張 体質 創造 求める
14 経済 確保 日本 契約 来る 発展 全体 権力 先端 ひらく
15 システム 農林 サービス 省庁 動かす 促進 含める 選ぶ 資源 絶対
20 21 22 23 24 25 26 27
1 ひと 改革 年金 市 国 若い 改革 政治
2 自分 郵政 廃止 施設 日本 力 断行 信頼
3 仕事 民営 道路 実現 国家 世代 推進 清潔
4 働く 政府 削減 福祉 国民 政治 実現 誠実
5 必要 小泉 金 老人 持つ 行動 制度 信条
6 わかる 民間 補助 充実 良い 新しい 行財政 豊か
7 出る 郵便 実現 町 経済 時代 構造 姿勢
8 感じる 官 議員 センター 日本人 情熱 抜本 持つ
9 良い 民 無駄 設置 社会 世紀 税制 確立
10 知る 局 ひと 建設 誇り 挑戦 真 こたえる
11 受ける 年金 財源 健康 基本 持つ 行政 倫理
12 持つ 公務員 高速 大学 責任 歳 実行 道
13 作る 地方 無料 誘致 価値 父 大胆 歩む
14 言葉 国民 民主党 特別 改める 感覚 本当 実行
15 本当に サービス マニフェスト 地元 自分 岡山 進める 不信
28 29 30 31 32 33 34 35 36
1 日本 豊か 労働 政治 道 新しい 社会 責任 社会
2 企業 活力 実現 改革 早期 政治 日本 国 女性
3 税 社会 制度 自民党 建設 改革 作る 持つ 男女
4 増税 推進 時間 腐敗 促進 時代 力 未来 参加
5 国民 世紀 雇用 選挙 道路 日本 自民党 将来 子供
6 消費 作り 確立 党 整備 変革 政治 日本 共同
7 基地 教育 改善 金権 自動車 創る 中心 強い 働く
8 優先 心 働く 防止 完成 古い 守る 必要 参画
9 政治 創造 生活 政権 事業 歴史 事業 勇気 目指す
10 福祉 福祉 制定 制度 空港 決意 森 果たす 福祉
11 ストップ 健康 年金 支配 国道 行動 首相 信頼 実現
12 医療 育成 条件 新しい 開発 挑戦 消費 感 障害
13 共産党 青少年 拡大 派 新幹線 新党 ひと 役割 高齢
14 民主 生きがい 充実 制定 バイパス 流れ 政府 力 優しい
15 反対 個性 パート 事件 着工 起こす 経済 国民 家庭
37 38 39 40 41 42 43 44 45 46
1 税 円 支援 都市 日本 国会 不安 事業 医療 主義
2 平和 国民 保育 東京 共産党 議員 年金 公共 支援 自由
3 消費 医療 子育て 圏 国民 法案 社会 国 雇用 民主
4 保障 政権 制度 国際 消費 成立 雇用 教育 介護 社会
5 社会 費 充実 大阪 税 立法 将来 ひと 金 世界
6 年金 自公 拡充 実現 増税 衆議院 安心 予算 保障 体制
7 アメリカ 兆 介護 構想 民主 年間 生活 投資 安心 平和
8 企業 税 児童 首都 つらぬく 改正 解消 費 制度 政治
9 増税 高齢 医療 時代 反対 案 失業 転換 子育て 経済
10 雇用 消費 年金 目指す 企業 法律 老後 学校 成長 確立
11 なくす 派遣 安心 文化 党 削減 介護 拡大 強化 守る
12 政治 主人公 ゼロ 機能 やめる 提出 ひと 雇用 対策 国家
13 いい 軍事 育児 中心 自由 提案 医療 必要 解消 選択
14 日本 保障 サービス 福祉 守る 定数 犯罪 年金 再生 東欧
15 独立 雇用 障害 集中 主人公 活動 倒産 進める 削減 国民
47 48 49 50 51 52 53 54 55
1 農林 農業 福祉 教育 整備 希望 日本 故郷 選挙
2 漁業 自給 充実 子供 線 夢 社会 豊か 区
3 産業 率 医療 学校 交通 持てる 国民 郷土 票
4 水産 食糧 教育 個性 道路 ひと 国 作り 自民党
5 振興 食料 実現 家庭 都市 働く 保障 心 代表
6 農 向上 高齢 制度 推進 社会 政府 世紀 候補
7 工業 安全 社会 心 駅 若者 政治 活力 比例
8 地場 農家 図る イジメ 建設 実現 改革 住む 投票
9 北海道 生産 年金 育てる 促進 子供 目指す 愛 支持
10 商 輸入 施設 福祉 実現 汗 暮らし 発展 議員
11 林業 高める 障害 のばす 網 未来 経済 明日 問う
12 秋田 農政 健康 教師 解消 年寄り 良い 時代 有権者
13 農業 農産物 サービス 値 下水道 安心 歩 創る 選ぶ
14 生産 供給 在宅 偏差 地下鉄 作る アメリカ 明るい 是非
15 図る 価格 保健 大切 早期 報う 企業 愛する 衆議院
56 57 58 59 60 61 62 63
1 つとめる 税 守る 基地 安心 作り 対策 減税
2 整備 消費 予算 米 子供 まち 企業 円
3 振興 憲法 暮らし 沖縄 元気 進める 中小 拡大
4 郷土 増税 保障 実現 未来 国 推進 大型
5 充実 暮らし 政治 軍 社会 ひと 強化 不況
6 図る 改悪 自民党 利用 暮らせる 地域 制度 内需
7 努力 アメリカ ルール 県民 作る 強い 充実 間接
8 改善 自民党 介護 縮小 育てる 商店 拡充 大幅
9 発展 平和 憲法 建設 取り戻す 支援 実施 中曽根
10 福祉 保障 公共 開発 老後 住む 支援 税
11 育成 守る 社会 返還 環境 教育 改善 反対
12 道路 共産党 事業 目指す 子育て 災害 進める 教育
13 開発 条 規制 振興 活力 京都 緊急 対策
14 地場 応援 共産党 安保 創る 環境 政策 所得
15 婦人 民主党 切り替える 島 育つ 取り組む 措置 導入
64 65 66 67 68 69 70 71
1 税 景気 政治 円 世紀 消費 環境 政策
2 消費 回復 立つ 兆 社会 税 エネルギー 経済
3 廃止 対策 立場 ひと 時代 廃止 社会 教育
4 自民党 経済 庶民 年間 新しい 税制 自然 基本
5 自由 取り組む 先頭 国 高齢 政治 資源 実現
6 輸入 安定 ひと 年金 対応 自民党 もの 重点
7 政治 世紀 弱い 所得 ひらく 選挙 リサイクル 改革
8 コメ 高齢 目指す 予算 向ける 社会党 地球 実行
9 国民 信頼 福祉 借金 求める 不公平 政策 確立
10 阻止 実行 がんばる 現在 システム リクルート 教育 生活
11 献金 本格 弱者 費 迎える 公正 推進 福祉
12 企業 活性 原点 年度 変化 国民 転換 置く
13 金権 教育 光 特別 新た 公平 ゴミ 転換
14 禁止 明るい 戦う 国民 課題 軍縮 廃棄 取り組む
15 団体 山梨 絶対 増 取り組む 参議院 促進 中心
72 73 74 75 76 77 78 79 80
1 日本 年金 共産党 安全 我が国 税 日本 日本 平和
2 税 負担 自民党 対策 努力 住宅 世界 国民 憲法
3 消費 制度 費 安心 国際 減税 国 政治 人権
4 癒着 費 軍事 強化 経済 生活 経済 公約 守る
5 企業 保険 守る 食 安定 税制 力 共産党 基本
6 官 ひと 反対 災害 発展 資産 支える 守る 福祉
7 政 基礎 平和 犯罪 郷土 所得 世界一 選挙 反対
8 財 所得 暮らし 治安 繁栄 消費 先進 税 差別
9 共産党 安心 円 支援 時代 土地 誇れる 政党 戦争
10 選挙 保障 中曽根 保障 世界 非課税 日本人 平和 制定
11 流れ 引き上げる 戦争 体制 貿易 相続 柱 審判 尊重
12 新しい 医療 福祉 拉致 課題 軽減 進路 声 平等
13 反対 軽減 削る 危機 情勢 家賃 尊敬 反対 許す
14 米 給付 国会 防災 対応 固定 世界中 優先 進める
15 増税 将来 老人 確保 迎える サラリーマン リード ノー 障害
81 82 83 84 85 86 87 88 89 90
1 年金 日本 地方 全力 再生 文化 声 行政 増税 整備
2 制度 政治 分権 尽くす 改革 産業 国政 財政 円 道路
3 円 国民 国 実現 経済 振興 いかす 改革 憲法 交通
4 医療 福祉 中央 力 日本 いかす 経験 再建 自民党 高速
5 地域 教育 権限 あげる 可能 作り 政治 経済 税 網
6 廃止 守る 確立 約束 地方 教育 反映 政府 民主党 道
7 月額 生活 自治 がんばる 国 地域 国会 緩和 日本 観光
8 手当 医療 財源 発展 持続 伝統 届ける 規制 控除 基盤
9 子供 実現 地域 福祉 成長 スポーツ 地元 構造 守る 発展
10 無駄 規制 行政 投球 構造 自然 現場 社会 戦争 空港
11 金 環境 主権 取り組む 宣言 観光 聞く 効率 民営 振興
12 支給 復興 移譲 決意 制度 地場 働く 赤字 条 新幹線
13 最低 被災 住民 注ぐ 金融 歴史 決意 活力 改悪 産業
14 創設 再建 集権 いかす 保障 国際 香川 高齢 郵政 農林
15 子育て 阻止 州 求める 外交 豊か がんばる 健全 公明党 体系
91 92 93 94 95 96 97 98
1 自民党 守る 市民 生活 支援 増税 問題 地域
2 企業 暮らし 情報 社会 申し上げる 日本 取り組む 経済
3 改革 命 官僚 豊か 決意 国民 解決 活性
4 国民 作る 公開 実現 心から 政治 課題 作り
5 献金 大切 参加 経済 あたたかい 税 改革 取り組む
6 共産党 国民 活動 環境 心 消費 重要 力
7 金権 平和 システム 実感 郷土 共産党 全力 生活
8 政治 約束 行政 ゆとり 国政 反対 必要 活動
9 日本 ひと 主役 大国 選挙 つらぬく 山積 いかす
10 党 医療 政治 優先 立候補 全力 戦後 住民
11 禁止 働く 共生 高齢 感謝 党 抱える 活力
12 選挙 生命 中心 政策 賜る 中心 最大 再生
13 団体 子供 社会 福祉 当選 力 努力 魅力
14 腐敗 生きる 主権 活力 力強い 作る 向ける 全体
15 憲法 仕事 民主党 築く 発展 流れ 立場 ネットワーク
99 100
1 税金 委員
2 無駄 大臣
3 官僚 長
4 なくす 内閣
5 予算 平成
6 天下り 実績
7 使う 総理
8 変える 国会
9 使い 当選
10 年金 衆議院
11 議員 党
12 禁止 会長
13 徹底的 経験
14 無駄遣い 政策
15 必要 議員
[[1]]
[[2]]
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35))[1] "Finished: "
user system elapsed
10.926 2.090 13.167
[1] "Finished: "
user system elapsed
9.037 1.032 10.145
[1] "Finished: "
user system elapsed
8.143 1.170 9.382
[1] "Finished: "
user system elapsed
7.531 0.980 8.544
[1] "Finished: "
user system elapsed
10.226 1.863 12.128
[1] "Finished: "
user system elapsed
9.018 1.345 10.672
[1] "Finished: "
user system elapsed
7.824 1.007 8.863
[1] "Finished: "
user system elapsed
7.474 1.085 8.598
[1] "Finished: "
user system elapsed
10.350 1.925 12.341
[1] "Finished: "
user system elapsed
9.438 1.344 10.951
[1] "Finished: "
user system elapsed
8.272 1.312 9.739
[1] "Finished: "
user system elapsed
8.355 1.198 9.631
[1] "Finished: "
user system elapsed
10.712 1.818 12.605
[1] "Finished: "
user system elapsed
8.868 1.429 10.564
[1] "Finished: "
user system elapsed
8.243 1.077 9.384
[1] "Finished: "
user system elapsed
7.914 1.022 8.987
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35),
seed_contamination=2)[1] "Finished: "
user system elapsed
10.810 2.161 13.085
[1] "Finished: "
user system elapsed
8.984 1.192 10.315
[1] "Finished: "
user system elapsed
8.702 1.275 10.063
[1] "Finished: "
user system elapsed
8.177 1.285 9.539
[1] "Finished: "
user system elapsed
11.183 2.194 13.559
[1] "Finished: "
user system elapsed
8.464 1.265 9.794
[1] "Finished: "
user system elapsed
8.466 1.124 9.656
[1] "Finished: "
user system elapsed
8.302 1.277 9.652
[1] "Finished: "
user system elapsed
10.601 2.113 12.838
[1] "Finished: "
user system elapsed
8.704 1.274 10.339
[1] "Finished: "
user system elapsed
7.762 1.107 8.911
[1] "Finished: "
user system elapsed
7.800 1.104 8.934
[1] "Finished: "
user system elapsed
9.879 1.817 11.731
[1] "Finished: "
user system elapsed
8.251 1.257 9.543
[1] "Finished: "
user system elapsed
7.725 1.123 8.889
[1] "Finished: "
user system elapsed
7.726 1.046 8.803
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.25)[1] "Finished: "
user system elapsed
9.549 1.774 11.348
[1] "Finished: "
user system elapsed
8.085 1.160 9.282
[1] "Finished: "
user system elapsed
7.524 1.175 8.734
[1] "Finished: "
user system elapsed
7.106 0.973 8.096
[1] "Finished: "
user system elapsed
10.125 1.924 12.208
[1] "Finished: "
user system elapsed
8.241 1.268 9.657
[1] "Finished: "
user system elapsed
8.705 1.422 10.518
[1] "Finished: "
user system elapsed
8.118 1.299 9.771
[1] "Finished: "
user system elapsed
10.900 1.930 13.232
[1] "Finished: "
user system elapsed
9.264 1.591 11.328
[1] "Finished: "
user system elapsed
8.343 1.297 9.736
[1] "Finished: "
user system elapsed
8.825 1.482 10.953
[1] "Finished: "
user system elapsed
11.086 1.889 13.326
[1] "Finished: "
user system elapsed
7.667 1.190 8.902
[1] "Finished: "
user system elapsed
7.548 1.133 8.721
[1] "Finished: "
user system elapsed
8.022 1.277 9.484
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.25,
seed_contamination=2)[1] "Finished: "
user system elapsed
10.356 1.807 12.262
[1] "Finished: "
user system elapsed
8.660 1.167 9.875
[1] "Finished: "
user system elapsed
8.007 1.263 9.440
[1] "Finished: "
user system elapsed
7.514 1.102 8.657
[1] "Finished: "
user system elapsed
10.093 1.791 11.976
[1] "Finished: "
user system elapsed
8.369 1.273 9.791
[1] "Finished: "
user system elapsed
7.579 1.083 8.793
[1] "Finished: "
user system elapsed
9.178 1.492 11.168
[1] "Finished: "
user system elapsed
9.952 1.950 11.961
[1] "Finished: "
user system elapsed
7.681 1.258 8.977
[1] "Finished: "
user system elapsed
7.260 1.080 8.365
[1] "Finished: "
user system elapsed
7.493 1.106 8.666
[1] "Finished: "
user system elapsed
9.877 1.949 11.866
[1] "Finished: "
user system elapsed
8.218 1.296 9.616
[1] "Finished: "
user system elapsed
7.755 1.245 9.129
[1] "Finished: "
user system elapsed
7.276 1.147 8.499
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.1)[1] "Finished: "
user system elapsed
10.622 1.829 12.499
[1] "Finished: "
user system elapsed
9.307 1.140 10.656
[1] "Finished: "
user system elapsed
8.233 1.065 9.330
[1] "Finished: "
user system elapsed
8.478 1.334 10.070
[1] "Finished: "
user system elapsed
11.092 2.110 13.307
[1] "Finished: "
user system elapsed
8.325 1.243 9.597
[1] "Finished: "
user system elapsed
7.911 1.148 9.089
[1] "Finished: "
user system elapsed
7.394 1.118 8.545
[1] "Finished: "
user system elapsed
10.869 2.123 13.059
[1] "Finished: "
user system elapsed
8.224 1.360 9.647
[1] "Finished: "
user system elapsed
8.281 1.273 9.683
[1] "Finished: "
user system elapsed
7.817 1.235 9.099
[1] "Finished: "
user system elapsed
10.911 2.028 13.014
[1] "Finished: "
user system elapsed
9.585 1.538 11.275
[1] "Finished: "
user system elapsed
7.653 1.143 8.827
[1] "Finished: "
user system elapsed
7.365 1.136 8.538
# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.1,
seed_contamination=2)[1] "Finished: "
user system elapsed
10.573 1.843 12.469
[1] "Finished: "
user system elapsed
8.837 1.200 10.089
[1] "Finished: "
user system elapsed
7.955 1.211 9.229
[1] "Finished: "
user system elapsed
7.504 1.088 8.617
[1] "Finished: "
user system elapsed
10.702 2.040 12.774
[1] "Finished: "
user system elapsed
8.979 1.555 10.637
[1] "Finished: "
user system elapsed
8.005 1.225 9.304
[1] "Finished: "
user system elapsed
8.092 1.178 9.378
[1] "Finished: "
user system elapsed
11.727 2.376 14.374
[1] "Finished: "
user system elapsed
9.540 1.607 11.418
[1] "Finished: "
user system elapsed
7.799 1.231 9.065
[1] "Finished: "
user system elapsed
7.549 1.154 8.756
[1] "Finished: "
user system elapsed
13.292 2.439 16.110
[1] "Finished: "
user system elapsed
9.300 1.548 11.064
[1] "Finished: "
user system elapsed
8.540 1.398 10.160
[1] "Finished: "
user system elapsed
7.616 1.166 8.872